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6.1 EXPRESSIONS; CONCEPTS Al^D TYPES 

An expression describes how a! value can be obtained by applying 
specified operations to designated operands or primaries. 

Syntax 

<expression> 

-<arithnietic expression>- — I 

|-<bit manipulation express ion >- I 

i- <Boolean express ion >- ; -| 

!-<case expression > — ; '— — I 

I -< complex expression > : I 

I -<conditional expression>^ — I 

I -<designa\:ional expression> I 

|-<function expression> — —I 

(-<pointer expression>- — -; —I 

I -< string expression > ; ■ — I 

Semantics 

Evaluation of an arithmetic e|xpression returns a numerical value. 
Evaluation of a Boolean expression returns a Boolean value (TRUE or 
FALSE). Evaluation of a complex expression returns a complex value — a 
value with a real numerical [ part and an imaginary numerical part. 
Evaluation of a designationai expression returns a label. Evaluation of 
a pointer expression returns -a value that can be used to reference a 
character position in an array row. Evaluation of a string expression 
returns a value that is an EBCDIC, ASCII, or hexadecimal string. 



A bit manipulation expression operates on bits within words and mak.es it 
possible to "build" the contents: of a word from groups of bits contained 
in other words. 
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Case expressions and conditional expressions allow one of several 
alternative expressions to be chosen for evaluation based on a selection 
value. 



A function expression is a call on a typed procedure. The procedure can 
be declared in the program or it can be an intrinsic — a typed procedure 
that is a predefined part of the ALGOL language. Intrinsic functions 
exist that are predefined arithmetic expressions, predefined Boolean 
expressions, predefined complex expressions, predefined pointer 
expressions, and predefined string expressions. For example, 
SQRT( <arithmetic expression >) is a function expression that returns the 
square root of the value of <arithmetic expression>. Because SQRT 
returns a numeric value, it is an arithmetic function — a predefined 
arithmetic expression. 



Expressions that are very large or deeply 
nested can cause the compiler to get a 
stack overflow fault. The fault can be 
avoided by breaking very large or deeply 
nested expressions into several separate 
expressions or by increasing the maximum 
stack size by using the task attribute 
STACKLIMIT. 



NOTE 



Examples 



X*Y 



A = B 



CASE N OF (1,2,4,8) 



SWLBL[SWX] 



SQRT(X) 



IF BOOL THEN A ELSE B 



POINTER(A) 



SI I I S2 



0 & N [3:4] 



RSLT. [19:20] 



CSIN(C) 



Expressions 

Arithmetic expressions are expressions that return numerical values by 
performing specified operations on designated arithmetic primaries. 

Syntax 

<arithmetic expression> 

. ^- — <simple arithmetic expression> — — i 

■I r . ■ . ■ . ■ 

|-<conditional arithmetic expression>- I 

<simple arithmetic expression) 

|<- <arithmetic operator) -| 

I I 
■ <arithmetic primary) — : 1 

I I 
I- -I 

I I 
I- - -I 

<arithmetic operator) 



- TIMES -I 

- MUX 1 

- / — I 

- DIV 1 

- MOD — i 

1 
I 

_ ** j 
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orithmetiG primary> 

<unsigned nuinber> 

|-<arithmetic concatenation expression>- 

|-<string literal> — : 

I -<arithmetic variable> — := — <arithmetic expression>- 

|-<arithmetic operand> 

I 

|-<partial word part> — 

<arithmetic operand> 

<arithinetic variable> —I 

I I 5 I ■ 

I |-<update symbols>-t 

I-<arithmetic function designator> ^ I 

I- ( — <arithmetic expression > — ) ! 

I -<arithmetic ease expression > 1 

I -<arithmetic attribute>- I 

<arithmetic case expression > 



— <case head> — ( <arithmetic expression> ) — I 

<conditional arithmetic expression> 

— <if clause> — <arithmetic expression> — ELSE — -~ — 

>-<arithmetic expression> ; 

<constant arithmetic expression) 

An <arithmetic expression > that can be fully evaluated at compil 
time. 
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477 

ARITHMETIC 



See also 

<arithinetic attribute>. . . .| . . , , . . ; . . . . . . , . . 226 

^arithmetic concatenation expression> . . . . . . . . . . . . . 484 

<arlthmetic function designators. . .... . . . . . . . . . . 515 

<arithmetic variable> . . . .... . . . . . . . . . . . . . . 225 

<case head> . . ... ... . . ........ 263 

<if clause> . ... . . . . . .:. . . . . . . . . . . . . 319 

<partial word part> ... . . . . . .. .. , . . . . 489 

<update symbols>. . . ... . ; . . . ... . .: . . . 227 



Examples 



Valid 



Invalid 



SUM/N 

(A+B)/(C-D) 
2*(X+Y) 
(A+B)/(C-D) 
COS(A+B)+C 

y*3 

+ 8 

(-B+SQRT(D) )/(A+A) 
^T'*3 

A+X* ( B : =X* ( C+X* ( D+X*E ) ) ) 
THETA 



L*-A 

*ENTIER(60) 

4(AC) 

X*-3 

3X + 4Y + Z 
A(X + 5) 

A+X* ( B : =X* ( C+X( D+X*E ) ) ) ) 
P*[X + Y + Z] 
X + Y*-X + Z**2 



Semantics 



The evaluation of a conditional arithmetic expression is described in 
"Conditional Expression." 



Arithmetic Primaries 



The items on which arithmetic operators act are called arithmetic 
primaries. 



A variable or function designator used as an arithmetic primary in an 
arithmetic expression must be of an arithmetic type~INTEGER. REAL, or 
DOUBLE. 



An attribute used as an arithmeti(p primary must have a type that is 
INTEGER, REAL, or DOUBLE. For information on file attribute and direct 
array attribute types, see the **l/0 Subsysteni Reference Manual." The 
arithmetic-yalued task attributes are described under "Arithmetic 
Assignment . •* 
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The length -of a string literal used as an arithmetic primary must not 
exceed 48 bits. A string literal used as an arithmetic primary is 
interpreted as either type REAL or type INTEGER, depending on its value. 



The arithmetic concatenation expression is described in "Concatenation 
Expression." 



The partial word part is described in "Partial Word Expression." 



The evaluation of an arithmetic case expression is described in "Case 
Expression." 



See also 

Arithmetic Assignment ..... 225 



Examples 



Valid Invalid 



5.678 X := * := Y 

X := * + 3 + DCS 

(14 + 3.142) B - A 

MABEL -(A + B) 

R & 3 [1:2} TRUE 

Y.[30:4] 

"ABCD" 

SQRT(X) 

CASE I OF (5,15,17) 
FYLE.MAXRECSIZE 



Arithmetic Operators 



The operators ^, -, *, and / have the conventional mathematical meanings 
of addition, subtraction, multiplication, and division, respectively. 
No two operators can be adjacent, and implied multiplication is not 
allowed. 



The TIMES and * operators denote multiplication. 
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The DIV operator denotes integer division. It has the following 
mathematical meaning: 

Y DIV Z = SIGN(Y/2;) ""^ ENTIER(ABS(Y/Z)) 



The MOD operator denotes remainder division:. For Z greater, than or 
equal to 1, MOD has the following meaning: 

Y MOD Z = Y - (Z * (Y DIV Z) ) 



For Z less than 1, the MOD operator produces undefined results. 

The MUX operator multiplies either single- or double-precision 
arithmetic primaries, and yields a double-precision result. 

The ** operator denotes exponentiation* The semantics of the 
exponentiation operator depend on the types and values of the primaries 
involved. Table 6-1 explains the various meanings of Y**Z. 



Table 6-1. lExponentiation 
Meaning' of Y**Z^ 





( Z: 


Type Integer 


■ 

Z: 

1 

1 


Type Real 






1 Z > 0 


1 

1 Z = 0 

1 


Z < 0 


Z > 0 


1 ■ . ' 1 
! Z = 0 1 
I 


Z < .0 


Y>0 
Y<0 
Y=0 


1 Note 1 
1 Note 1 
10 

t 


1 

1 

1 1 

11 
1 Note 4 

1 


Note 2 
Note 2 
Note 4 


Note 3 
Note 4 
0 


1 1 
1 1 
1 t 
1 1.1 
1 Note 4 1 
1 


Note 3 
Note 4 
Note 4 



I Note 1: Y**Z = Y*Y*Y ... *^ (Z times) 

! Note 2: Y**Z = Reciprocal of Y*Y*Y .. .*Y (ABS(Z) times) 

i Note 3: Y**Z = EXP(Z*LN(Y)) 

I Note 4: Value of the expression is undefined. 

I ■ ■ ■ ■ ' , ■ i . 
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Precedence of Arithmetic Operators 

The sequence in which the operations of an arithmetic expression are 
performed is determined by the precedence of the operators involved. 
The order of precedence is as follows: 

1. ** (highest precedence) 

2. *, /, MOD, DIV, MUX, TIMES 

3 . + , - 



Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 



The precedence of the assignment operator (:=) is as follows; 

1. An expression to the right of an assignment operator is 
evaluated before the assignment. 

2. The' assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 



Parentheses can be used in normal mathematical fashion to override the 
defined order of precedence. An expression in parentheses is evaluated 
by itself, and the resulting value is subsequently combined with the 
other elements of the expression. For example, in the expression 

(X+l)/y 

the addition is performed before the division because of the 
parentheses. In the expression 

X+l/Y 

1 is first divided by Y and then the result is added to X. 



481 

Expressions ARITHMETIC 

■ • ! . . ■ - 

Table 6-2 illustrates how mathematical notation can be translated to an 
ALGOL arithmetic expression. 



Table 6-2. 


Mathematical Notation 


Mathematical 
Expression 


1 Equivalent 
1 ALGOL Expression 


A X B 


1 A; * B 


B 

A + - 
2 


1 A + B/2 


X + 1 
Y 


1 (iX + 1)/Y- 


2 

D + E 


1 (D + E**2)/(2 * A) 


2A 




3 

4(X + Y) 


1 4 * (X + Y) ** 3 


M - N 




-6 

P + 5 X 1 0 

(M + N) 


1 ii - N)/(M + N) (P + 5(3-6) 



Precision Of Arithmetic Expressions 

. . ■ ■■ ■ I . . 

The value of an arithmetic expression can be expressed in single or 
double precision, depending on the precision of its constituents or, in 
the case of MUX, on the operator iriivolved. The value of an arithmetic 
expression is double precision ii any variable, function, or number of 
which it is composed is of type DOiItbLE, of if two primaries are combined 
by the double-precision operator MUX. The MUX operator allows a 
double-precision result to be obtained from the multiplication of two 
single-precision arithmetic primaries. 
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The value of a case expression is double precision if any expression in 
its arithmetic expression list is of type DOUBLE. Likewise, the value 
of a conditional arithmetic expression is double precision if either 
arithmetic expression is double precision. In either case, 
single-precision arithmetic expressions are converted to double 
precision, when necessary. 



Types of Resulting Values 



The type of the value resulting from an arithmetic operation depends on 
the arithmetic operator and the types of the primaries being combined, 
except when the resulting value is undefined. Table 6-3 describes the 
types of quantities that result from various combinations of arithmetic 
primaries . 



Table 6-3. Types of Values Resulting from Arithmetic Operations 



Operand 
on Left 


1 Operand I 
Ion Right 1 


+ 
* 


/ 


1 DIV 


1 
1 

1 MOD 

1 


1 » ft 




1 MUX 


INTEGER 


1 INTEGER 1 


Note 3 


REAL 


1 INTEGER 


i 

1 

1 INTEGER 


1 Note 


1 


1 DOUBLE 


INTEGER 


1 REAL 1 


REAL 


REAL 


1 INTEGER 


IREAL 


1 Note 


2 


IDOUBLE 


INTEGER 


i DOUBLE 1 


DOUBLE 


DOUBLE 


1 DOUBLE 


1 DOUBLE 


1 Note 


2 


1 DOUBLE 


REAL 


1 INTEGER 1 


REAL 


REAL 


1 INTEGER 


IREAL 


1 Note 


2 


1 DOUBLE 


REAL 


1 REAL 1 


REAL 


REAL 


1 INTEGER 


IREAL 


1 Note 


2 


IDOUBLE 


REAL 


1 DOUBLE i 


DOUBLE 


DOUBLE 


1 DOUBLE 


1 DOUBLE 


! DOUBLE 


IDOUBLE 


DOUBLE 


l(any) 1 


DOUBLE 


DOUBLE 


1 DOUBLE 


1 DOUBLE 

1 . 


1 DOUBLE 


1 DOUBLE 



Note 1: If the operand on the right is negative or the absolute 
value of the result is greater than or equal to 2**39, 
REAL; otherwise, INTEGER 

Note 2: If the operand on the right is zero, INTEGER; otherwise, 
REAL 

Note 3: If the absolute value of the result is less than 2**39, 
INTEGER; otherwise, REAL 
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The type of an arithmetic case expression or a conditional arithmetic 
expression is DOUBLE if any of its constituent expressions are of type 
DOUBLE. (For more information, refer to "Precision of Arithmetic 
Expressions" above.) If the conditional arithmetic expression or 
arithmetic case expression contains only expressions of type INTEGER and 
REAL, its type is I^EAL. A conditional arithmetic expression or 
arithmetic case expression is of type INTEGER only if all its 
constituent expressions are of type INTEGER. 
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BIT MANIPULATIOM EXPRESSION 



Bit manipulation expressions provide a means of isolating a field of one 
or more bits from a word, and allow words to be constructed from fields 
of one or more bits from other words. 



Syntax 

<bit manipulation expression> 

— — <concatenation expression > 

I I 
|-<partial word expression > — I 

Concatenation Expression 



The concatenation expression forms a primary from selected parts of two 
or more primaries. 



Synteuc 

<concatenation expression> 

<arithmetic concatenation expression> I 

I I 
|-<Boolean concatenation expression> 1 

<arithmetic concatenation expression> 

— <arithmetic primary> — & — <arithmetic expression>- 
>-<concateriat ion> 



<Boolean concatenation expression> 

— <Boolean primary> — & — <Boolean expression> — <concatenation >~- 
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<concatenation> 

~ [ — <left bit to>— I' — — — — — ^. — — — — 

^ I - I ' 

|-<left bit f r om > — : -| 

>-<number of bits>— ] — ~ — ^— — ^ — ^ — — •-. — | 

<lef t bit to> 

— <arithrnet:ic expressipn>~ I 

< lef t bit f rom> 

— Orithmetic express; 1 on >— I 

<pumber of bits> 

— <arithmetic expression> — I 



See also 

xar it hmetic primary >. ...... .... ... . .... . . . 476 

<Boolean primary > . ... . . . . . . . . ....... ... . 492 



Semantics 



A concatenation primary is formed by taking a specified part of th^ bit 
pattern of the value of an expression and copying it into the specified 
portion of a primary.. The rest of the destination primary is not 
changed by this operation. 

Note that only arithmetic expressions : can be concatenated with 
arithmetic primaries, and only boolean expressions can be concatenated 
with Boolean primaries. ' 
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Because the concatenation expression is a primary, and the syntax for a 
concatenation expression is of the form 

<primary> & <expressi6n> <concatenation> 

concatenation expressions of the following form are allowed: 

<primary> & <expression> 
& <expression> 



& < express ion > 

If, as in the example above, more than one concatenation term is used in 
a concatenation expression, then these terms are evaluated from left to 
right. 



<concatenation> 



The < concatenation > construct describes the location in the expression 
of the field to be copied and the location in the destination primary 
where the field is to be copied. 



The <left bit to> element defines the leftmost bit location of the field 
in the destination word. The <left bit from> element defines the 
leftmost bit location of the field in the source word. The <number of 
bits> element specifies the length of the field to be copied from the 
source to the destination. 



If the "[<left bit to>:<left bit f rom> : <number of bits>3" form is used, 
the field of bits to be copied starts at <left bit from> in the source 
word and is < number of bits> long. 



If the "[<left bit to>:<number of bits>3" form is used, then the field 
of bits to be copied from the source word starts at bit number (< number 
of bits>~l) and extends through bit zero. That is, the source field is 
assumed to be the low-order <number of bits> bits in the source word. 



The values of <lef t bit to> and <lef t bit f rom> must lie within the 
range 0 through 47, where bit 0 is the rightmost, or least significant, 
bit in the word. 



< concatenations 
<concatenation> 



<concatenation> 
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The value of < number of bits> must lie within the range 0 through 48. 
If the value of <number of bits> exceeds the number of bits to the right 
of the starting bit in either the sdurce or destination words, these 
fields wrap around and are continued at bit :47, the leftmost bit, of the 
same word. 



If, through the programmer's use of variables, the ranges for <ieft bit 
to, <left bit from>, or <number of bits> are exceeded, then the program 
is discontinued with a fault. 



Because a concatenation expression is a primary, when it appears as an 

operand in a larger expression^ the concatenation expression is 

evaluated before other any operation is executed. For example, the 
expression 

2**4 & 1 [0:0:1] 
is evaluated as 

2**(4 & 1 [0:0:1]) =2**5 =32 
and NOT as 

(2**4) Si l [0:0:1] = 16 & 1 [0:0:1] = 17 



For the same reason, the Boolean concatenation expression 

3 < 7 & (5 > 8) [47:47:20] 
is evaluated as; 

3 < (7 & (5 > 8) [47:47:20]) 
which is equivalent to 

3 < (7 Sc FALSE [47:47:20]) 

This results in an error, because the Boolean expression "FALSE" cannot 
be concatenated with the arithmetic primary "7". 



! 
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Exaaples 



Given real variables X. Y, and Z with the following values: 

4 "00000000 7 FFF" 
4"000000000400" 
4 "000000000001" 

the following are examples of arithmetic conceitenat ion expressions and 
their values : 







Expression 


Value 


X 


& 


Y [47:11;4] 


4"400000007FFF'' 


X 


& 


Y [47:12] 


4"400000007FFF" 


Y 


& 


X [39:20] 


4"0007FFF00400" 


Y 


& 


2 [46:1] 


4"400000000400" 


0 


& 


Y [11:11] 


4"000000000800" 


0 


& 


X [23:48] 


4"007FFF000000" 


X 


& 


Y [39:12] & Z [47:1] 


4" 80400000 7FFF" 


Y 


& 


X [19:15:8] 


4"00000007F400" 



Assume the elements of the real array INFO contain information about the 
data in a file. Each element of INFO contains a record number in the 
field [19:20], and the length of the data in that record is in field 
[39:20]. That is, each element of INFO stores the location and length 
of a record in the data file. Let N be a variable that contains a 
record number and let L be a variable that Contains the length of that 
record. The following declarations and assignment statement could be 
used to store a value into an element of INFO. 

DEFINE 

REC^NUMF = [19:20]#. 
LENGTHF = [39:20]#; 



X ' 32767 = 
Y = 1024 = 
Z = 1 = 



INF0[I] := 0 & N REC_NUMF 
& L LENGTHF; 
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Partial Word Expression 

A partial word expression isolates the value of a field of one or more 
bits of a specified word. 



Syntax 



<partial word expression> 

<arithmetic operand> <partial word part> — I 

|-<Boolean operand> — • — 1 



<partial word part> 

■ ..- • i . . 

— . — [ — <left bit>~ : ~<niimber of bits>— ] 



<lef t bit> 

— <arlthinetic expression>— I 



See also 

< arithmetic operandi. . . . . . , • • • . • ... . . . . . 476 

cBpolean operand) . . . . 492 

<number of bits>. . . . ... . .. .... . . . 485 



Semantics 



The <partial word part > construct describes the location in the operand 
of the field to be isolated. The isolated field is copied to the low 
order (rightmost) field of a word of all zeros. 



The <left bit> element defines the leftmost bit location of the field in 
the source word. The value of <left bit> must lie within the range 0 
through 47, where bit 0 is the rightmost, or least significant, bit in 
the word. 



The <number of bits> element specif" ies the length of the field. The 
value of <number of bits> must iie within the range 0 through 48. If 
the value of <number of bits> exceeds the number of bits to the right of 
<left bit> in the source word, the field wraps around and is continued 
at bit 47, the leftmost bit. of the same word. 
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If, through the programmer's use of variables, these ranges are 
exceeded, the program is discontinued with a fault. ^ -vv^ .-•^vr^^i.yvwfls 



Examples 



Given real variables X, Y, and Z with the following values: 

X = 32767 = 4"000000007FFF" 
y = 1024 = 4"000000000400" 
Z = 2 = 4"000000000002" 

the following are examples of arithmetic partial word expressions and 
their values: 

Expression Value 



X.[5:6] 4"00000000003F" 

Y.[ll:4] 4"000000000004" 

Z. [19:48] 4"000040000000" 

X. [23:24] 4"000000007FFF" 

X. [23:20] 4"0000000007FF" 



Using the INFO array example from "Concatenation Expression" above, the 
following assignments could be used to extract information from INFO. 



N := INFO[I] .REC_NUMF; 
L := INFO[I]..LENGTHF: 
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Boolean expressions are expressions that return logical values by 
applying specified operations to 4esigna ted Boolean primaries. 

Syntax 

^Boolean expressions 

<simple Boolean expression> ' — I 

■ : I ■ . : .. ■ ■ ■ -.I- 

!-<conditional Boolean expression >~ 1; 

<simple Boolean expression > 

l<- <Boolean operator > -| 

I I : ; 

<Boolean primary > — 1 

<Boolean operator> 
AND ——I 



- EOV 
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- NOT - 



-<Boolean value>- — — ■ • 

-<Boolean operand > — — . 

1 

|-<partial word part> 

-<Boolean variable> ;= — <Boolean primary >■ 

1 

|-<update symbols > 

-<arithmetic relation > — ■ 

-<Boolean concatenation expression> 

-<complex relation> 

-<string relation) 

-<pointer relation> ■ 

-<string expression relation) •■ 

-<arithmetic table membership) 

-<pointer table membership) — ■ 



< Boolean value) 

TRUE — - 

1 

I- FALSE - 



<Boolean operand) 

<Boolean variable) 

I 

-<Boolean function designator) — I 

I 

- ( — <Boolean expression) — ) -I 

! 

-<Boolean case expression) ! 

! 

-<Boolean attribute) ' ! 



Ex}!)ressions: 
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<Boolean case expression > 



— < case head >-- ( —-<Boolean expression > ) — 

<arithinetic relation> • 

— <arithmetic express ion > — < relational operator >- 
>-<arithinetic expression > — ■ — ' -: -- 



<relatidnal operator)' 

<string relational opera tor >- f 

I_ IS r ----I 

I r t 

i- ISNT — — h— I 



< String relational operator > 
LEQ I 

- LSS - 

- EQL - 

- NEQ - 

A 

- GTR - 

- GEO - 
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< complex relation) 

— <complex expression > — <complex equality operator >-'■ — — > 

>-<complex expression)-- — - — — - — — — • — — | 

< complex equality operator) 

— EQL i 



- NEQ - 



<string relation) 

— <pointer part) — <relational operator) 

> — •-<pointer part) — FOR — <arithmetic expression)- 

. . ! 

|-<string literal)-- ■ ■ : 



I 

- FOR — <arithmetic expression)- I 



<pointer part) 

<pointer expression)— I 

.1 i 
|-<update pointer)-! 

<pointer relation) 

— <pointer expression) — <equality operator) — <pointer expression)- 
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<equality operator > 

EQL -1 



I- ISNT -I 
<string expression relation> 



— <string expression> — <string relational operator>:- — > 

>-<string expresslon>- ■ — : — ■ ! 

<arithraetic table meinbership> 

— <arithmetic expression> — IN — <truth set table>~| 

<pointer table membership> 

— <pointer expression> — IN — <truth set table>- > 

>_ > 1 

\ \ \ 

I- FOR — <arithinetic expression >- I 

<conditional Boolean expression > 

— <if clause>— <Boolean expresslon>- — ELSE ~<Boolean expression> — I 

See also 

<Booiean attribute> .... . . ... . . . . . . . 234 

<Boolean concatenation expression;- 484 

<Boolean function designator > 515 

<Boolean varia:ble>. . ...... . ... . . . . 234 

<case head> ................ 263 

<if clause) . . ... . . . . . . . . . .. . 319 

<partial word part> 489 

< truth set table/ ........... .... 382 

<update pointer:'.. ; . . . 379 

<update symbols >. . . . . . . ..... . . 227 
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Examples 



Valid 



Invalid 



B AND TRUE 



1+A AND 2>0 
NOT NOT A 
1-W*2 

(B*2-4XAXC) 



1-A > B*(-E) 
(X=Y OR W=K) 
X=0 AND Y'=0 



A>1 AND (B=0 OR C<D) 

(A=B OR C=D) AND (X<2 OR Y<2) 

A=B 

X EQV Y 

NOT B & TRUE [5:1] 



The evaluation of a conditional Boolean expression is described in 
"Conditional Expression." 



Operators in Boolean Expressions 



The following table lists the operators that can be used in Boolean 
expressions, along with their meanings. When two operators are listed 
on the same line, they are equivalent to each other. 



Semantics 



Operator 



Meaning 



NOT 

AND 

OR 

IMP 

EQV 

IS 

ISNT 

EQL 

NEQ 

GTR 

GEQ 

LSS 

LEQ 



< = 



< 



> 



> = 



logical NOT 
logical AND 
logical inclusive OR 
logical implication 
logical equivalence 
identical to 
not identical to 
equal to 
not equal to 
greater than 

greater than or equal to 

less than 

less than or equal to 
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Logical Operators 

The values returned by the logical operators are defined in Table 6-4. 





Table 


6-4. Resuits of Logical Operators 




Operand A 


Operand 


1 1 r 1 

B 1 NOT A ( A AND B I A OR B | A IMP B 

1 , 1 . \ .1 


A EQV B 


TRUE 


TRUE 


__ ._. 
1 FALSE 1 TRUE I TRUE i TRUE 


TRUE 


TRUE 


FALSE 


1 FALSE j FALSE i TRUE | FALSE 


FALSE 


FALSE 


TRUE 


1 TRUE ! FALSE I TRUE i TRUE 


FALSE 


FALSE 


FALSE 


1 TRUE ( FALSE I FALSE | TRUE 

1 ( ! I 


TRUE 



The Boolean operations defined above are performed on all 48 bits of the 
Boolean primaries on a blt-by-bit basis. For example, the constant TRUE 
(4"000000000001" ) does not have the same bit pattern as the Boolean 
expression NOT FALSE, because NOT complements all 48 bits of the 
constant FALSE ( 4"000000000000" ) y generating 4"FFFFFFFFFFFF" . Even so, 
the constant TRUE and the Boolean expression NOT FALSE have the same 
Boolean value of TRUE because th^ Boolean value of a Boolean primary is 
based upon the value of the low-order bit (bit zero) of the Boolean 
primary (0 is FALSE; 1 is TRUE). ; 



NOTE 

Exception: When NOT operates on an 
arithmetic relation, the low-order bit 
(bit zero) is complemented; however, the 
other 47 bits are not necessarily 
complemented. For example, if X = Y 
evaluates to tJrue, then NOT(X = Y) 
evaluates to FALSE|, not Jnecessarily to 
NOT TRUE as would be expected. 



IS and ISNT Operators 



The IS relational operator performs a bit-for-bit compare on its two 
operands. It returns TRUE if the corresponding bits of each operand are 
the same. The ISNT operator is the negation of the IS operator. 
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If the IS operator is used to compare a double-precision arithmetic 
quantity to, a single-precision (integer or real) arithmetic quantity, 
the result is always FALSE. 

The IS operator differs from the EQL or = operator, which does an 
arithmetic compare on Its operands. Two operands can have the same 
arithmetic value with different bit patterns. Thus, the following pairs 
yield TRUE when compared with the EQL or - operator, but yield FALSE 
when compared with the IS operator; 

1. +0 and -0 

2. A normalized number and the same number not in normalized 
format 

3. A number with an exponent of +0 and the same number with an 
exponent of -0 

4. A number with bit 47 = 0 and the same number with bit 47 =1 



Kelational Operators 



The action of the relational operators GTR, >, GEQ, >=, LSS, <, LEQ, <=, 
EQL. =, NEQ, and depends on the kinds of items being compared. For 
more information, refer to "<arithmetic relation>," "<complex 
relation>," "<string relation>," "<pointer relation>,*' and "<strlng 
expression relation>" in this section. 



Precedence in Boolean Expressions 



The components of Boolean expressions are evaluated in the following 
order : 

1. All arithmetic, complex, pointer, and string expressions are 

evaluated. 

2. All relations, table memberships, and assignments are 
evaluated. 



Logical operators are then applied. 
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The order of precedence of the logical operators is as follows: 
1/ NOT (highest precedence) 

2. ANP ■'■ 

3. OR, r 

4. IMP ■" ■ 

5. EQV 



Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 



The precedence of the assignment operator (:=) is as follows: 

1. A primary to the right of an assignment operator is evaluated 
before the assignment. 

2. The assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 



Parentheses can be used to override the defined order of precedence. An 
expression in parentheses is evaluated by itself, and the resulting 
value is subsequently combined with the other elements of the 
expression. For example, in the expression 

X AND (Y OR Z) 

the OR Is performed before the A|TD because of the parentheses. In the 
expression 

X AND y OR Z 

the AND is performed before the OR. 

Boolean Primaries 



The Boolean concatenation expression is described in "Concatenation 
Expression. " 



The partial word part is described in "Partial Word Expression. " 



500 

BOOLEAN 



ALGOL REFERENCE MANUAL 



The evaluation of a Boolean case expression is described in "Case 
Expression." ' 



<Boolean value > 



The Boolean value TRUE is represented internally as a 48-bit word 
containing 4"000000000001" , and the Boolean value FALSE is represented 
internally as a 4S-bit word containing 4 "000000000000" . 



<arithinetic relation> 



An arithmetic relation performs an arithmetic comparison of the values 
of two arithmetic expressions. The value of the relation is either TRUE 
or FALSE. 



<complex relation> 

A complex relation performs a comparison between the values of two 
complex expressions. Because one of the forms of a complex expression 
is an arithmetic expression, the complex relation can also be used to 
compare a complex value and an arithmetic value. In a complex relation, 
the only allowed relational operators are =, EQL, and NEQ. 



<string relation> 



The string relation syntax causes a comparison to be performed between 
two character strings referenced by two pointer expressions, or between 
the character string referenced by a pointer expression and a string 
literal. The character strings are compared according to the EBCDIC 
collating sequence. The arithmetic expression specifies the number of 
characters to be compared (the repeat count). If a string literal 
follows the relational operator and a repeat count has been specified, 
then the string literal is concatenated with itself, if necessary, tc 
form a 48-bit literal. The comparison is repeated until the repeat 
count is exhausted. If no repeat count is specified, the string 
characters are compared once. 
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<POiiiter relation) 

A pointer relation determines whether two pointer expressions refer to 
the same character position l-n the same array row. If the character 
sizes of the two pointer expressions are unequal, the comparison always 
yields the value FALSE. 

A pointer relation should not be confused with a string relation. A 
string relation compares the character strings referenced by pointer 
expressions. A pointer relation compares the pointer expressions 
themselves. For example, if pointers PI and P2 are initialized as 
follows: 

POINTER PI. P2; 
REAL ARRAY A.B[0:1]; 
PI P0INTER(A,8); 
P2 := P0INTER(B,8); 
REPLACE PI BY "A"; 
REPLACE P2 BY -A"; 



then the string relation 

PI EOL P2 FOR 1 
would have the value TRUE, but the pointer relation 

PI EQL P2 

would have the value FALSE, because PI refers to array A and P2 refers 
to array E. 



<8trlng expression relation) 

The string expression relation compares two string expressions according 
to the Collating sequence of the character type of the string 
expressions. Only string expressions of the same character type can be 
compared. 

Two strings are equal only if the lengths of the two strings are equal 
and if every character in one string is equal to the corresponding 
character in the other string. Two null strings are equal. 
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One string -is strictly greater than a second string only if at least one 
of the following conditions is true: 

1. The leftmost character in the first string that is not equal to 
the corresponding character in the second string compares as 
greater than the corresponding character in the second string. 

2. The length of the first string is greater than the length of 
the second string, and the two strings compare as equal for the 
length of the second string. 



Whenever two string literals can be compared as two arithmetic 
primaries, they are so compared. For example, the Boolean expression 

"B" > "AA" 

yields a value of FALSE, because the two quoted strings are treated as 
two arithmetic primaries. However, if the two string literals "B" and 
"AA" were assigned to two string variables T and S, respectively, then 
the Boolean expression 

T > S " 

yields a value of TRUE, because the first character of T is greater than 
the first character of S. 



For example, if a string SI is assigned the value "AAB12+", then all of 
the following comparisons are TRUE: 

SI EQL TAKE(S1,6) 
SI NEQ HEAD (SI, ALPHA) 
SI GTR HEAD (SI, ALPHA) 
SI LSS DR0P(S1,3) 
SI LSS DR0P(S1,1) 



Table Membership 



The table membership constructs allow testing to determine whether a 
character is a member of a truth set. The character can be either a 
character in a string literal or a character in an array row referenced 
by a pointer expression. In a pointer table membership primary, the 
"FOR <arithmetic expression>" part applies the membership test to the 
first <arithmetic expression > characters to which the pointer expression 
points. 



The <subscripted variable) form of the <truth set table> construct 
allows several truth set tables to be contained in one array row. The 
value of the subscript indicates the beginning of the desired table 
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within the array row. For a description of truth sets, refer to 
••TRUtHSET Declarat ion . " 



Examples 



Valid 



TRUE 

BOOL 

B.[ll:l] 

B ;= TRUE 

Bl := * AND B2 

CSIN(Cl) = CSIN(C2) 

X > Y 

NOT B 

E = 3 

PTR = "ABCD" 
PI < P2 FOR 20 
SI I I S2 = S3 

happene;d(e) 

CASE I OF (Bl, TRUE, 
NOT FYLE.OPEN 

PI = P2 

BOOL & TRUE [19:1] 

X IN ALPHAS 

PI IN ALPHAS FOR 6 



Invalid 



SQRT(X) 

5.67 

-X 

R + TRUE 

CSIN(C1 ) > CSIN(C2) 

PI > P2 

SI IS "ABCD" 
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CASE EXPRESSION 



Case expressions provide a means of selecting from a list of expressions 
one expression for evaluation. 



Syntax 



<case expression > 

-: <arithmetic case expression> 

■ i 

|-<Boolean case expression> 

|-<complex case expression >~ 

I -<designational case expression >- 

I 

l-<pGinter case expression) 



See also 

<arithmetic case expressions 47b 

<Boolean case expressions . 493 

< complex case expressions 507 

<designational case expressions 512 

<pointer case expressions 519 



Semantics 



In a case expression, the list of expressions must be composed of 
expressions of the same kind; for example, all arithmetic expressions or 
all Boolean expressions. The expression to be evaluated is selected as 
follows: 

1. The arithmetic expression in the case head is evaluated and 
integer ized by rounding, if necessary. 

2. This value is used as an index into the expression list. The 
component expressions of the expression list are numbered 
sequentially from 0 through N-1, where N is the number of 
expressions in the list. 



3. 



The expression selected by the index is 
value is the value of the case expression. 



evaluated, and its 
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If the value of the index lies outside the range 0 through N-1, the 
program is discontinued with a fault. 



The type of an arithmetic case expression is DOUBLE if any of its 
constituent expressions is of type DOUBLE; in this case, any constituent 
expression that is not of type DOUBLE is extended to double precision. 
The type of an arithmetic case expression is INTEGER if and only if all 
of its constituent expressions are of type INTEGER. Otherwise, an 
arithmetic case expression is of type REAL. 



Examples 



CASE N OF (2, 20, 100. 37) 

CASE X. [27:2] OF (TRUE, FALSE. TRUE. TRUE) 
CASE I OF (CI, C2, COMPLEX(X,Y) ) V 

CASE TSTS[ INDEX] OF (LBLl, LBL2, AGAIN, NEXT, MORE) 
CASE CHAR.SZF OF (PTR, PTS, POINTER( A ) , PTEMP , POLO) 
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COMPLEX EXPRESSION 



Complex expressions are expressions that return complex values 
(arithmetic values that consist of a real part and an imaginary part) by 
applying specified operations to designated complex primaries. 



Syntax 

< complex expression> 

— — <arithmetic expression > 

.1 I 
|-<simple complex expression> I 

I . I 

|-<conditional complex expression>- I 



< simple complex expression > 

I <- < complex operator > 
I 

— — -<complex primary> 



< complex operator > 



I- / -! 

< complex primary > 

orithmetic primary > 

I I 
t-< complex operand > 1 

■ I I 
II < _ _ , I 

II... i ! 
I ** — orithmetic primary> ! 



Expressions 

< complex operand > 

— < complex variable > — — — — — 

I |- := — < complex primary >- 1 

, , I ■■ • . . ■■ ^' I - ^ ■ i 

I I -<update symbols > | 

I; . I 

|-<complex function designator >--^—- ■ -1 

I ■ ..I 

I- ( — <complex expression>'— ) — — i 

I I 
|-<complex case expression >• — — ^ | 

<complex case expression> 

l< — — — -I 

■ ■ I ■ ■ ■ .1 
— <case head) — ( —<complex expression > ) — " i 



— <if clause> — ^^<complex expression)^ — ELSE— < complex expression) — I 



<conditional complex expression) 

— <if clause) — ^^<complex expression)^ — ELSE— < complex expression) — I 

See also 

<arithmetic primary). . . . . . . . . . . . . . . . 476 

<case head) . .... ... ... . . . . . . . . . . . . . . . 263 

< complex function designator) . 516 

<complex variable) . . . .; 237 

<if clause) . . * . . . . . ... . . ; . . . . . . 319 

< update symbols). . . . . . .... . . . . . , 227 

Semantics 

The imaginary part of a complex value can be equal to zero. Because of 
this, an arithmetic expression is, whenever necessary, considered to be 
the real part of a complex expression with a zero imaginary part. No 
automatic type conversion from complex to arithmetic exists. 



The sequence in which the operations of a complex expression are 
performed is determined by the precedence of the operators involved. 
The order of precedence is as follows: : 

1. *, / (highest precedence) 
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2. +, 
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Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 



The precedence of the assignment operator (:=) is as follows: 

1. A primary to the right of an assignment operator is evaluated 
before the assignment. 

2. The assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 



Parentheses can be used in normal mathematical fashion to override the 
defined order of precedence. An expression in parentheses is evaluated 
by itself, and the resulting value is subsequently combined with the 
other elements of the expression. For example, in the expression 

(C2 + Cl)/C2 

the addition is performed before the division because of the 
parentheses. In the expression 

C2 + C1/C2 

CI is first divided by C2 and then the result is added to C2. 



The evaluation of a conditional complex expression is described in 
•'Conditional Expression." 



The evaluation of a complex case expression is described in "Case 
Expression. " 

Examples 

ci 

Cl + 3 
CI ** X 

CI :=, COMPLEX! X,Y) 



CI := * - C2 
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CABS (CI) 

(COMPLEX(R,S) * CCON) 

CASE I OF (Cl, C2. CLN(C2)) 

IF BOOL THEN Cl ELSE CONJUGATE ( Cl ) 
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CONDITIQNA]^ EXPRESSION 



A conditional expression is one that returns one of two possible values, 
depending upon a specified condition. 



Syntax 

<conditional expression> 

<conditional arithmetic expression> 

1 I 

I -<condi tional Boolean expression) ■ ! 

! I 

i -<condit ional complex expression> 

I 

i -<condi tional designat ional expression>- 



! 

I -<conditional pointer expression>- 



See also 

<conditional arithmetic expression) .476 

<conditional Boolean expression) 495 

<conditional complex expression) 507 

<conditional designational expression). . 512 

<conditional pointer expression) . 520 



Semantics 



Conditional expressions are of the form 

IF <Boolean expression) THEN <expression) ELSE <expression> 

Either the first or the second expression is selected for evaluation, 
depending on the value of the Boolean expression. The two alternative 
expressions must be of the same kind; for example, two arithmetic 
expressions or two Boolean expressions. 



The selection process proceeds as follows: 

The Boolean expression following "IF" is evaluated. 

If the resulting value is TRUE, the expression following "THEN" 
is evaluated, and the expression following "ELSE" is ignored. 



If the resulting value is FALSE, the expression following "THEN" 
is ignored, and the expression following "ELSE" is evaluated. 
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If either of the two expressions is itself a conditional expression, the 
process is repeated until an uncbnditional expression is selected for 
evaluation. 



The type of a conditional arithmetic expression is DOUBLE if either of 
its constituent expressions is of type DOUBLE; in this case, a 
constituent expression that is not of type DOUBLE is extended to double 
precision. The type of a conditional arithmetic expression is INTEGER 
if and only If both of its constituent expressions are of type INTEGER. 
Otherwise, a conditional arithmetic expression is of type REAL 



Examples 



IF BOOL THEN 47 ELSE 95 

IF A = B THEN BOOL ELSE FALSE 

IF NOT BOOL THEN CI ELSE C2 

IF ALLDONE THEN EOJLBL ELSE NEXTLBL 



IF CHAR.SZF = 8 THEN PTRINEBCDIC ELSE PTRINHEX 
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DESIGNATIONAL EXPRESSION 

Designational expressions are expressions that return a value that is a 
label. 

Syntax 

<designational expression> 

<label designator> • I 

I I 

I -<designational case expression> I 

I I 
|-<conditional designational expression >- I 

< label designator> 

<label identifier> ! 

!-<switch label identifier> — [ — <subscript> — ] -! 

<designational case expression> 

l< ^ 

i i 
— <case head> — ( <designational expression> ) — | 

<conditional designational expression> 

— <if clause> — <designational expression>^ — ELSE ' ~> 

>-<designatiOnal expression> ■ — ■ — | 



See also 



<case head> 
<if clause> 



263 
319 
128 
43 
195 



<label identifier>. . . . 

< subscript > . 

< switch label identifier > 
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Semantics 



If a designational expression is a label identifier, then the value of 
the expression is that label. 



If a designational expression is a subscripted switch label identifier, 
then the numerical value of the subjscript designates one of the elements 
in the switch label list. The value of the subscript is rounded, if 
necessary, to an integer. This value is used as an index into the 
switch label list. The entries of the list are numbered sequentially 
from 1 through N, where N is the number of entries in the list. The 
entry corresponding to the value of the subscript Is selected. If the 
value of the subscript is outside the range of the switch label list, 
program control continues to the' next statement without any error 
indication. (For more information :about the switch label list, refer to 
"SWITCH LABEL Declaration.") 



The evaluation of a designational case expression is described in "Case 
Expression . " . 



The evaluation of a conditional designational expression is described in 
"Conditional Expression." 



Examples 



ENDLABEL 

CH00SELABEL[I+2] 

CASE X OF (GOTDATA, GOTERR, GOTREAL, GOTCHANGE, ESCAPE) 



IF K = 1 THEN SELECT[2] ELSE START 
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FUNCTION EXPRESSION 



A function expression is an expression that returns a single value that 
is the result of invoking a procedure. The procedure can be declared in 
the program, or it can be an intrinsic procedure. 



Syntax 

<function expression> 

•<arithmetic function designator>- 

i . 

|-<Boolean function designator > 

I . 

|-<complex function designator > 

i 

!-<pointer function designator> 

■ I ■ 

|-<string function designator> 



Semantics 



There are two kinds of functions: predefined functions, called 
intrinsic functions, which are part of the ALGOL language, and 
programmer-defined functions, which are typed procedures that are 
declared in the program. 



The intrinsic functions are described later in this chapter under the 
heading "Intrinsic Functions." 



See also 

Intrinsic Functions 528 



Arithmetic Function Designator 



An arithmetic function designator specifies a function that returns an 
arithmetic value — a value of type INTEGER, REAL, or DOUBLE. 
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Syntax 

<arithmetic function designator> 

— <procedure identifier > — ----- — . — | 



1 -<arithmetic intrinsic name>-l l-<actual parameter part>-| 

<arithmetic intrinsic name> ■ j 

Any of the names listed under the heading "Arithmetic Intrinsic 
Names" in this chapter. 



See also 

<actual parameter part> . . . . ,. . . ... , . 346 

Arithmetic Intrinsic Names. . . 528 

<procedure identifier>. . . . > . . . L . . , . . . . . . . . . 165 



Semantics 

The procedure specified by the procedure identifier must be of type 
INTEGER, REAL, or DOUBLE. 

Boolean Function Designator 

A Boolean function designator sjiecif ies : a function that returns a 
Boolean value — a value of TRUE or FALSE. 

Syntax 

<Boolean function designator> 

< procedure identifier > — ■-• t — ■■ 1 

|-<Boolean intrinsic narae>-l i-<actual parameter part>-| 



I 
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<Boolean intrinsic name> 

Any of the names listed under the heading "Boolean Intrinsic Names" 
in this chapter. 

See also 



The procedure specified by the procedure identifier must be of type 
BOOLEAN. 



Complex FungtiPQ Designator 



A complex function designator specifies a function that returns a 
complex value — a value with a real part and an imaginary part. 



Syntcuc 



< complex function designator > 

<procedure identifier> — 

1 I ! I 

i-<complex intrinsic name>-| |-<actual parameter part>-| 



<complex intrinsic name> 

Any of the names listed under the heading "complex Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> 346 

Complex Intrinsic Names 531 

<procedure identifier> . . . 165 



<actual parameter part> 
Boolean Intrinsic Names 
<procedure identifier>. 



346 
531 
165 



Semantics 



ExpressionE 
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Semantics 



The procedure specified by the procedure identifier must be of type 
COMPLEX. 



Pointer Function Designator 

A pointer function designator specif ies I a function that returns a 
pointer value— a value that can be used to refer to a character position 
in an array row. 



Syntax 



<pointer function designator) 

— /pointer intrinsic name> — <actual parameter part> — | 



<pointer intrinsic name> 

Any of the names listed under the heading "Pointer Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> 
Pointer Intrinsic Names 



Semantics 



Unlike the other function designators, the syntax for pointer function 
designator does not allow a procedure identifier as part of the syntax. 
There is no PROCEDURE declaration that allows declaring a procedure of 
type POINTER. 



346 
531 
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String Function Designator 

A String function designator specifies a function that returns a string 
value — a hexadecimal string, an ASCII string, or an EBCDIC string. 

Syntax 

<string function designator> 

~--<string procedure identifier > — 1 

. i ■ II. I ■ 

|-<string intrinsic name> 1 j-octual parameter part>-| 

<string intrinsic name> 

Any of the names listed under the heading "String Intrinsic Names" 
in this chapter. 

See also 

<actual parameter part> . . . 
String Intrinsic Names. . . . 
<string procedure identifier > 

Semantics 



346 
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A String procedure identifier designates a procedure declared with a 
type of HEX STRING, ASCII STRING, or EBCDIC STRING. 
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POINTER EXPRESSION 



A pointer expression is an expression that returns a value that is a 
pointer, which can be used to reference a character position in an array 
row. 



Syntax 



<pointer expression> 

< simple pointer express ion >■ — • 

l-<conditional pointer expression>- 



<simple pointer expression> 

-<pointer primary > ■ — ^— ! 

I . .1 : I. 

I |-<sk,ip>4l 
t .1 

l-<pointer assignment > -| 

I . . .1 
|-<character array part> I 



<pointer primary > 

<pointer identifier > — '■ 

I 

- ( — ■<pointer expression >— ) -I 

. ■ 1 

-<pointer case expression >-^- ! 

i 

-<pointer function designator I 



<pointer case expression> 



l<- 



:case head> — ( <pointer expression >- — ) 



< skip J 

+ < arithmetic primary 
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< character array part;> 

-■ — <character array row> 



|-<character array name> 



<character array row> 

An <array row> whose identifier is declared with a ccharacter type>. 



< character array naroe> 

An <array name> whose identifier is declared with a ^.character 
type> . 



<conditional pointer expression> 

— <if clause> — <pointer expression>— ELSE — <pointer expression> — I 



See also 

orithraetic primary> 
<array name>. . . . 
< array rQW> .... 
<case head> . . . . 
< character type>. . 
<if clause > .... 
<pointer assignment> 
<pointer function designator> 

<pointer identifier > 

<subscript > . . ... . . . . 



~ [ ^<subscript> — - ] -| 



476 
43 
43 
263 
42 
319 
241 
517 
160 
43 
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Semantics 

A pointer must be initialized befor^e it can be used; otherwise, a 
run-time error occurs. A pointer can be initialized in the following 
ways : 

1. By a pointer assignment 

2. By appearing as an update isoiriter in any of the following: 

- a REPLACE statement. 

- a SCAN statement 

a string relation in a Boolean expression 
the DOUBLE function 
the INTEGER function 



The evaluation of a conditional pointer expression is described in 
"Conditional Expression." 



< pointer primary > 



A one-dimensional array designator or a fully subscripted variable can 
be interpreted as a pointer primary whenever context determines that no 
conflict exists with other valid constructs (for example, when a pointer 
expression is required). This syntax can be used for such constructs as 

REPLACE A BY B FOR 10 WORDS 

where A and B are one-dimensional arrays. 

The evaluation of a pointer case ■ expression is described in "Case 
Expression." 

<sk.ip> 

1 . ■ . 

If the <slcip> construct is used, the value of the arithmetic primary 
determines the adjustment to the value of the pointer primary. If N is 
the value of the arithmetic primary, the pointer is adjusted as follows: 

If N is less than or equal to zero, the pointer is not adjusted. 
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If N is greater than zero, then the pointer is adjusted N 
characters to the right if the <skip> construct specifies "+", or 
N characters to the left if it specifies Skipping to the 

right is defined as incrementing the value of. the character 
index. Skipping to the left is defined as decrementing this 
value. 



If the adjustment to the value of the pointer primary is given by the 

value of an arithmetic expression, note that the arithmetic expression 
must be enclosed in parentheses. For example, the expression 

PTR + X*Y 

is invalid and will get a compile- time error. It is correctly written 

as.. 

PTR + (X*Y) 



Pragmatics 



The use of a pointer expression to skip up and down an array for more 
than a few words is expensive. Each word of the array is accessed in 
order to ensure that no memory-protected words are encountered. For 
pointer moves of more than a few words, it is faster to re-index the 
array and use the POINTER function for word arrays, or to re-index the 
array for character arrays. 



Examples 



PTR 

PTS+15 

PTR := POINTER(A) 
(PTEMP + (x*y)) 
HEXARAY 
HEXARAY[Nj 

CASE VAL OF ( PTR , PTS , PTEMP ,PSORCE ) 
POINTER (INFO. 8) 

READLOCK ( PTR . FOLD .) 



IF BOOL THEN PI ELSE POINTER(A) 
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SIEIfiG EXPRESSION 

A String expression is an expression that returns a value that is 
hexadecimal string, EBCDIC string, or ASCII string. 

Syntax 

<string expression> 

— <string priniary> — .— — — — . — — . . 

. > — . ^_ — _.; 

I |< — - — _ .„ — I 

I I . I I 

I — — <string concatenation operator > — ^<string primary> — -| 

<string concatenation operator > 

■—- CAT - — r - ■ ■ - : ■ ' " -1 " - - 

I . \ ' ' ■ . \ ■ 

I- 1 1 --I 



<string primary > 

string constant >■ 

■ . i 

|-<string variable>- 



"I i 
i-< subscripted string variable >- — --^.f 

\ .i; 

l-<string function designator >- 1^ 

' ■■ ' ( 

I - < s t r i n g- va 1 ued 1 i brary a 1 1 r i bu t e > - \ 

I ; i: 

I- ( — <string expression >— )—■"-- |: 



<string constant> 

-— EMPTY --^ 

i , 

|-<EBCDIC string constants- 



I ■ " 

|-<ASCII string constant > — — 

! 

I -<hekadecimal string constant >- 
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<EPGDIC string constant> 
— — EMPTYS -■ 




— <EBCDIC string>-'- " 

I 

^< EBCDIC code>-| 



- 48 " — <hexadeciinal string> — " — — | 

I . ■ ". ■ ■ I 

- 480 -i I 

. . I 

- 28 " — <quaternary string> — " ■ — I 

.1 I 

- 280 -! I 

I 

- 18 " ~<binary string> — " ■ 1 

i 

- 180 -i 



<ASCII string constant> 
EMPTY? 



___ .. — <ASCII string>~ " - 

I I 
|-<ASCII code>-| 

I- 47 " — <hexadecinial string> — " — 

I i 

I- 470 -i 

!- 27 " — <quaternary string> — " 

I I 

I- 270 -1 

I- 17 " — <binary string> — " 

! i 

I- 170 -; 
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<hexadecimal String constant> 

— — EMPTY4 — — — —- -r— — i.^ 

4 • — — <hexadeciinal String > — 

... . ■ I ■ 

- 24 — - " -T<quatern?iry string>— 

- 240.-i 

- X4 — - " — <binary string>-r- — 

i ■.■ 

- 140 -i 



<string variable> 

— <string identifier> — 



<subscriptGd string variable> 



— < string array identifier >~ [ — < subscript >- — ] — 



<string^valued library attribute> 

— <library identifiers — .. — ■'— — — — — 
>-<string-valued library attribute. name> 



^constant string expression> 

A <string expressions that can be fully evaluated at compile time, 



See- also, 

<library identifier), .... . . . . • • . . . . . . 129 

< string array identifier > ....... ^ ........... . 187 

<string function designator >. ;. . . .... . . . . . . . . . . 518 

< string identifier > . . . ... . . . . . . . . . 185 

<string-valued library attribute name>^ ... . . . ... . . . 129 

<subscript> . . . .; .. 43 
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Semantics 



In the syntax for EBCDIC string constant. ASCII string constant, and 
hexadecimal string constant, the string codes determine the 
interpretation of the characters between the quotation marks (") and has 
no effect on the justification of a string. A string is always 
left- justified; therefore, any "0" in a string code is ignored. 



The <LijCulC ^ Ov^v. > C ji.sLrixcz is cj:. . . or .: .j ah i^ii^LlC String constant 

containing an EBCDIC string only if the default character type is 
EBCDIC. The <ASCII code> construct is optional in an ASCII string 
constant containing an ASCII string only if the default character type 
is ASCII. For more information, refer to "String Code" in the chapter 
"Language Components" and "Default Character Type" in the appendix "Data 
Representation." 



The reserved words EMPTY8, EMPTY? , and EMPTy4 represent null strings of 
the character types EBCDIC, ASCII, and hexadecimal, respectively. The 
reserved word EMPTY represents a null string of the default character 
type. 



For more information about string-valued library attributes, refer to 
"Library Attributes" in the "Interface to the Library Facility" chapter. 



String Concatenation 



The operators CAT and | I are used to concatenate two strings. The 
concatenation of two strings yields a new string whose length is the sum 
of the lengths of the two original strings, and whose value is formed by 
joining a copy of the second string immediately onto the end of a copy 
of the first string. 



Only strings of the same character type can be concatenated. 



is used in a concatenation operation, 
right. 



If more than one string primary 
they are evaluated from left to 
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Pragmatics 



No more than 256 characters can appear between one pair of quotation 
marks in a string constant; ; however, as many as 4095 characters can 
appear in an EBCDIC string constant:, ASCII string constant, or 
hexadecimal string constant. 



See also 

Default Character Type. . . . . . ............... 817 

Library Attributes. . . . ... . 665 

String code ..................... 36 



Examples 



% result 
% result 
% result 



8"ABCD123" 
""WHY"48"6F"" 
EMPTY 8 

S2 I I S3 

"AC" II S2 II "123" 

SI II TRANSLATE (S 2, HEXTOEBCDIC) 

HEAD (S, ALPHA) 

TAIL(S,NOT "-") 

REPEAT ("ABC", 3) 

STRING(256,* ) 

TAKE(S,2) 

DR0P(TAKE(S,4) .2) 



ABCD123 
"WHY?" 



TRANSLATE ( S , HEXTOEBCDI C ) 
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Intrinsic functions are typed procedures that are predefined in the 
ALGOL language; that is, intrinsic functions can be used without being 
declared. 



INmySIC »AMES £1 YYPg RETURNED 



The intrinsic functions of ALGOL return values of type INTEGER, REAL, 
DOUBLE, BOOLEAN, COMPLEX, POINTER, and STRING. 



?<itripgtg Mams. 



The following intrinsic functions return arithmetic values (values of 
type INTEGER, REAL, and DOUBLE). 
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Alphabetical Listing of Arithmetic Intrinsic Functions 



The type of the value each function returns, INTEGER, REAL, or DOUBLE, 
is indicated by I, R, or D, respectively, following the name of the 
function. 



ABS (R) 


DLOG (D) 


MAX (R) 


ARCCOS (R) 


DMAX (D) 


MESSAGESEARCHER (I) 


ARCSIN (R) 


DMIN (D) 


MIN (R) 


ARGTAN (R) 


DNABS (D) 


NABS (R) 


ARCTAN2 (R) 


DNOT (D) 


NORMALIZE (R) 


ARkAYSEARCH (I) 


DOR (D) 


OFFSET (I) 


ATANH (R) 


DOUBLE : ( D ) 


ONES (I) 


CABS (R) 


DSCALELEFT ( D ) 


OPEN (I) 


CHECKSUM (R) 


DSCALEilGHT (D) 


POTC (D) 


CLOSE (I) 


DSGALEilGHTT (D) 


POTH (D) 


COMPILETIME (R) 


DSIN (h) 


POTL (D) 


COS ( R ) 


DSINH (D) 


PROCESSID (I) 


COSH (R) 


DSQRT (D) 


RANDOM (R) 


COTAN <R) 


DTAN (D) 


READLOCK (R) 


DABS ( D ) 


DTANH (D) 


REAL (R) 


DAND (D) 


ENTIER (I) 


REMAININGCHARS (I) 


DARCCOS (D) 


ERF (R) 


SCALELEFT (I) 


DARCSIN (D) 


ERFC (R) 


SCALER IGHT (I) 


DARCTAN (D) 


EXP (R) 


SCALERIGHTF (R) 


DARCTAN2 (D) 


FIRST (R) 


SCALERIGHTT (I) 


DCOS (D) 


FIRSTOkE ( I ) 


SECONDWORD (R) 


DCOSH (D) 


FIRSTWORD <R) 


SETACTUALNAME (I) 


DECIMAL (D) 


GAMMA (R) 


SIGN (I) 


DELINKLIBRARY (I) 


IMAG (R) 


SIN (R) 


DELTA (I) 


INTEGER (I) 


SINGLE (R) 


DEQV (D) 


INTEGERT (I) 


SINK (R) 


DERF (D) 


LENGTH : ( I ) 


SIZE (I) 


DERFC (D) 


LINENUMBER (I) 


SQRT (R) 


DEXP (D) 


LINKLlfeRARY (I) 


TAN (R) 


DGAMMA (D) 


LISTLOOKUP (I) ; 


TANH (R) 


DIMP (D) 


LN (R) 


TIME (R) 


DINTEGER (D) 


LNGAMMA (R) 


VALUE (I) 


DLGAMMA (D) 


LOG (R) 


WAIT (I) 


DLN (D) 


MASKSEARCH (I) 


WAITANDRESET (I) 



530 

Intrinsic Functions 



ALGOL REFERENCE MANUAL 



Listing Arithmetic Intrinsic Functions by Type Returned 



Intrinsic Functions Returning Values of Type INTEGER 



ARRAYSEARCH^ 
CLOSE 

DELINKLIBRARY 

DELTA 

ENTIER 

FIRSTONE 

INTEGER 

INTEGERT 

LENGTH 

LINENUMBER "V 



LINKLIBRARY 
^LISTLOOKUP 
-MASKSEARCH 

MESSAGESEARCHER 

OFFSET 

ONES 

OPEN 

PROCESS ID 
REMAIN I NGCHARS 



SCALELEFT 

SCALER I GHT 

SCALERIGHTT 

SETACTUALNAME 

SIGN 

SIZE 

VALUE 

WAIT 

WAITANDRESET 



Intrinsic Functions Returning Values of Type REAL 



ABS 


ERFC 


RANDOM 


ARCGOS 


EXP 


READLOCK 


ARCS IN 


FIRST 


REAL 


ARCTAN 


FIRSTWORD 


SCALERIGHTF 


ARCTAN2 


GAMMA 


SECONDWORD 


ATANH 


I MAG 


SIN 


CABS 


LN 


SINGLE 


CHECKSUM 


LNGAMMA 


SINK 


COMPILETIME 


LOG 


SQRT 


COS 


MAX 


TAN 


COSH 


MIN 


TANH 


COTAN 


NABS 


TIME 


ERF 


NORMALIZE 





Intrinsic Functions Returning Values of Type DOUBLE 



DABS 


DEXP 


DOUBLE 


DAND 


DGAMMA 


DSCALELEFT 


DARCCOS 


DIMP 


DSCALERIGHT 


DARCSIN 


DINTEGER 


DSCALERIGHTT 


DARCTAN 


DLGAMMA 


DSIN 


DARCTAN2 


DLN 


DSINH 


DCOS 


DLOG 


DSQRT 


DCOSH 


DMAX 


DTAN 


DECIMAL 


DMIN 


DTANE 


DEQV 


DNABS 


POTC 


DERF 


DNOT 


POTK 


DERFC 


DOR 


POTL 
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Boolean Intrinsic Najnes 



The following intrinsic functions return values of type BOOLEAN. 



ACCEPT 

AVAILABLE 

BOOLEAN 

GHANGEFILE. 

CHECKPOINT 

FIX 

FREE 

HAPPENED 



READ 

READLOCK 

REMOVEFILE 

SEEK 

SPACE 

WAIT 

WRITE 



Complex Intrinsic Usms. 



The following intrinsic functions return values of type COMPLEX. 



CCOS 
CEXP 
CLN 

COMPLEX 



CONJUGATE 

CSIN 

CSQRT 



Pointer Intrinsic Hames 



The following intrinsic functions return values of type POINTER. 



POINTER 
READLOCK 



String Intrinsic Wames 



The following intrinsic functions ; return values of type STRING 



DROP 

HEAD 

REPEAT 

STRING 

STRINGS 



STRING? 
STRINGS 
TAIL 
TAKE 

TRANSLATE 
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INTRINSIC FUNCTION DESCRIPTIONS 



For arithmetic intrinsic functions, all arithmetic parameters are 
assumed to be call-by-value. For a further description of some of the 
arithmetic intrinsic functions, refer to the chapter "Mathematical 
Functions" in the "System Software Utilities Reference Manual." 



<abs functloh> 



— ABS — ( — <arithmetic expression> — ) — I 

The ABS function returns, as a real value, the absolute value of the 
specified arithmetic expression. 



<accept statement > 



The ACCEPT statement returns a Boolean value. For more information, 
refer to "ACCEPT Statement." 



xarccos function> 



~ ARCCOS — ( — <arithmetic expression> — ) — 1 



The ARCCOS function returns, as a real value, the principal value of the 
arccosine (in radians) of the specified arithmetic expression, where 
-i < <arithmetic expression> < 1. If the value of the arithmetic 
expression is not in this range, a run-time error occurs. 



<arcsin function> 



— ARCSIK — ( ■ — <arithmetic expression >— ) — I 



The ARCSIN function returns, as a real value, the principal value of the 
arcsine (in radians) of the specified arithmetic expression, where 
-1 < <.arithmetic expression > < 1, If the value of the arithmetic 
expression is not in this range, a run-time error occurs. 
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<arctan function> 



— ; ARCTAN — ( — <arithrnetic expression >-- ) — i 



The ARCTAN function returns, as a real value, the principal value of the 
arctangent (in radians) of the specified arithmetic expression. 



<arctan2 function> 

— ARCTAN 2— ( — <arithinetic expression>-- . 
>-<arithmetic expression> — ) — — ■'• 



The ARCTAN2 function returns, as a real value, the arctangent (in 
radians ) of 

first <arithmetic expression) / second <arithmetic expression) 

the returned value is adjusted to fall in the range (-pi to •♦-pi) by the 
following formula: 

Let X be the value of the first arithmetic expression and Y be the value 
of the second arithmetic expression. ; 

If Y > 0. 

ARCTAN2(X,Y) = ARCTAN(X/Y) 
If Y = 0, 

ARCTAN2(X,Y) = SIGN(X) * pi / 2 
If Y < 0, 



ARGTAN2(X,Y) = 



ARCTAN (X/Y) + SIGNi(X) * pi 
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<arrayseareh function > 



— ARRAYSEARCH — ( — < arithmetic express i on > — 



> 



>-'<ar ithmetic expression> — 



<array row> 



I -<subscripted variable>- 



See also 



<array row> 

< subscripted variable > 



43 
225 



The ARRAYSEARCH function searches for a specific value within an array. 
The first arithmetic expression is the value being searched for (the 
target value). The second arithmetic expression is the mask, to be used 
in the search. The third parameter is a row or subscripted variable of 
an array of type INTEGER, REAL, BOOLEAN, or COMPLEX. 



If the third parameter is an array row, the search begins with the last 
element of the specified array row; otherwise, the search begins with 
the element specified by the subscripted variable. Each element, in 
turn, is retrieved, logically ANDed with the value of the mask, and 
compared, using the IS operator, with the target value, which has also 
been logically ANDed with the mask. If the comparison yields TRUE, the 
function returns an integer value equal to the difference between the 
subscript of the element where the value is found and the subscript of 
the first element in the array. If the comparison yields FALSE, the 
subscript of the element to be retrieved is decremented by one, and the 
search continues until either a match is found or the first element of 
the array has been examined. If no match is found, -1 is returned. 

The ARRAYSEARCH function can be used on paged (segmented) arrays and 
unpaged ( unsegmented ) arrays. 



<atanh function) 



— ATANH — ( — <arithmetic expression> — ) — I 

The ATANH function returns, as a real value, the hyperbolic arctangent 
of the specified arithmetic expression. 
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< aval lable f uoct ion> 



~ AVAILABLE — ( -- < even t. des i gnat or > — ) — | 



See also ■. ,- ' ■ 

< event designator > . . . . \ . 



78 



The AVAILABLE function is a Boolean function that returns TRUE if the 
available state of the specif iled eventMs TRUE (available) and returns 
FALSE if the available state is 'FALSE (not available). 



<B6olean function > 



— BOOLEAN -- ( —< arithmetic expression > — ) ~ 



The BOOLEAN function returns the value of the arithmetic expression as a 
Boolean value. If the arlthinetic expression is double precision, its 
value is first truncated to single preci'sion. 



< cabs function > 



-• - CABS ■ — ( —< complex expression/— ) — 



The CABS function returns, as a real value, the absolute value of the 
specified complex €?xpression. 



<ccos function > 



~ CCOS ~ ( ■ — <complex expression>^ — ) -- 1 



The CCOS function returns, as a : complex value, -the complex cosine of the 
specified complex expression. 
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<cexp function> 

— CEX? — ( — <complex expression> — ) — I 

The CEXP function returns, as a complex value, 

e < complex expression > 
where e is the base of the natural logarithms. 



<changefile statement > 



The CHANGEFILE statement returns a Boolean value. For more information, 
refer to "CHANGEFILE Statement." 



'checkpoint statement > 



The CHECKPOINT statement returns 
refer to "CHECKPOINT Statement." 



a Boolean value. 



For more information 
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< checksum function> 



— CHECKSUM — ( — <array row> — , — <starting index> — , > 

>-<ending index> — ) — r — ■ 1 

< starting index> 

— <arithmetic expression> — I ' 

< ending index > 

--<arithmetic expression>-^ 1 



See also 

<array row> 



43 



The CHECKSUM function returns, a$ a real value, a hash function of all 
bits in the words of the array row beginning with the word indexed by 
<starting index> and up to, but not including, the word indexed by 
<ending index>. Both <starting index> and <ending index> are rounded to 
an integer value before they are' used to index the array row. The value 
of this function can be used to verify the integrity of data being 
transferred or stored. The array row must be single precision and 
unpaged (unsegmented) . 



<cln function> 



— CLN — ( — <complex expresslon> — ) — | 



The CLN function returns, as a complex value, the natural logarithm of 
the specified complex expression. 



<close statement > 



The CLOSE statement returns an integer value. For more information, 
refer to "CLOSE Statement." 
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<compiletime function> 

— COMPILETIME — ( — <constant arithmetic expression> — ) — I 



See also 

<constant arithmetic expression>. ............... 476 



The COMPILETIME function obtains various system time values at compile 
time, for use by the object program. The form of the value returned by 
the COMPILETIME function is the same as that returned by the TIME 
function for the same argument. The returned value is computed " 
compiler using the TIME function at compile time. For more information, 
refer to the TIME function in this section. 



C0MPILETIME( 20) returns, in integer form, the program version number as 
set by the most recent VERSION compiler control option. 



COMPILETIME( 21 ) returns, in integer form, the program cycle number as 
set by the most recent VERSION compiler control option. 



COMPILETIME( 22 ) returns, in integer form, the program patch number as 
set by the most recent VERSION compiler control option. 



< complex function> 

— COMPLEX — ( — <arithmetic expression> — , 
>-<ari thmetic expression> — ) 



The COMPLEX function returns, as a complex value, 

first <arithmetic expression> + i * second <arithmetic expression) 



where i is the square root of -1. The arithmetic expressions are first 
rou-;ded to single precision, if necessary. 
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< conjugate function > 



~ CONJUGATE — ( — < complex expression >— ) 



The CONJUGATE function returns;, as a complex value, the complex 
conjugate of the specified cbmpleix expression. 



<cos function> 



— COS — ( — <arithmetic expressibn>: — ) — 



The COS function returns, as a real value, the cosine of an angle oi 
<arithmetic expression> radians. 



<cosh function> 



— COSH ■ — ( — <arithmetic ex;pression;> — ) — 



The COSH function returns, as a feal value, the hyperbolic cosine of the 
specified arithmetic expression. 



<cotan functlon> 



■- COTAN — ( — <arithmetic Expression) — ) — i 



The COTAN function returns, as a ; real value, the cotangent of an angle 
of <arithmetic expression> radians. 



<csin function > 



— CSIN — ( ■^-<complex expression > — ; ) — 



The CSIN function returns, as a complex value, the complex sine of the 
specified complex expression. 
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<csqrt function> 

— CSQRT — ( — <complex expression > — ) — I 

The CSQRT function returns, as a complex value, the square root of the 
specified complex expression. 

<dabs function > 

— DABS — ( — <arithmetic expression > — ) — I 

The DABS function returns, as a double-precision value, the absolute 
value of the specified arithmetic expression. 

<dand function > 

— DAND — ( — <arithmetic expression) — , > 

>-<arithmet ic expression) — ) • '-• ■ I 

The DAND function returns, as a double-precision value, 

first <arithmetic expression) AND second <arithmetic expression) 

The arithmetic expressions are first extended to double precision, if 
necessary, and the AND operation is performed on all 96 bits. 

<darccos function > 

— DARCCOS — ( — <arithmetic expression) — ) — ! 

The DARCCOS function returns, as a double-precision value, the principal 
value of the arccosine (in radians) of the specified arithmetic 
expression, where -1 < <arithmetic expression) < 1. If the value of the 
arithmetic expression is not in this range, a run-time error occurs. 
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<darcsin function> 

— DARCSIN — ( — <arithmetic ;expression> — ) — I 

The DARCSIN function returns, as a double-precision value, the principal 
value of the arcsine (in radians) of the specified arithmetic 
expression, where -1 < <arithmetic expression) < 1. If the value of the 
arithmetic expression is not in this range, a run-time error occurs. 



<darctan function > 



— DARCTAN ~ ( — <arithmetic express ion > — ) — | 

The DARCTAN function returns, as a double-precision 
value of the arctangent (in radians) , of the 
expression. 



<darctan2 function> 

■ — DARCTAN2 ■ — ( — <arithmetiG expression) — . 
>-<arithmetic expression) — ) — — .— — — - 



value, the principal 
specified arithmetic 



The DARCTAN2 function returns, 
principal value of the arctangent 

first <arithmetic expression) 



as a double-precision value. the 
(in radians) of 

/ second <arithmetic expression) 



<dcos function) 



— DCOS — ( — <arithmetic expression) — ) — ! 

The DCOS function returns, as a double-precision value, the cosine of an 
angle of <arithmetic expression) radians.: 
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<dcosh function > 



~ DCOSH — ( — <arithmetic expression > — ) — I 



The DCOSH function returns, as a double-precision value, the hyperbolic 
cosine of the specified arithmetic expression. 



< decimal function > 



— DECIMAL — ( --<string expression> — ) — I 



The DECIMAL function returns the double-precision value represented by 
the string expression. 



The string expression must yield a valid <nuinber> on evaluation (see 
"Number" in the chapter "Language Components"). For example, the 
assignment 

D := DECIMAL(STR): 

is valid for the strings 

STR = "+5497823" 

STR = "1.75(3-46" 

STR = "-4. 31458" 

STR = "(§2" 

STR = " + 549" I 1 "7823" 



However, for the strings 

STR = "50 00. " 

STR = "1,505,278,00" 

STR = "1(32.5" 

I 

I 



the program is given a run-time error. 
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<delinKlibrary fiinGtiop> 

DELINKLIBRARY X — <iibrary iden^ ) ~| 



See also 

<library identifier^. . . . . \. ;. . . .. . . ... . . • ... r 129 

The DELINKLIBRARY function delinks the program from the librar 
specified by the library identifier. The DELINKLIBRARY function affects 
■only thq linkage between the program and the indicated library; other 
programs using the library progii-am are not affected. This function 
returns an integer value that indicates success or failure and the 
reason for failure. The values returned by the function can be 
interpreted as follows: 

Value Meaning 



1 The library has been delinked from the program. 

0 The library was not linked to the program.. 

-1 The library structure could not be accessed; a system fault has 
occurred. 



(delta function> 

— DELTA — : ( — <F>Ointer expression>-^ <pointer expression> > 

>_ ) ___________-____ I 



The DELTA function returns, as. an integer value, the number of 
characters between- the character position referenced by the first 
pointer expression and the character position referenced by the second 
pointer expression. The value is calculated as follows: the character 
position referenced by the first pdinter expression is subtracted from, 
the character position referenced ti)y the second pointer expression. 



For a function that returns the number of characters between the 
character position referenced by a pointer expression and the beginning 
of the array row. see the OFFSET function in this section. For a 
function that returns the number of characters between the character 
position referenced by a pointer expression and the end of the array 
row, see the REMAIN I NGCHARS function in this section. 
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<deQv function> 

— DEQV — ( — orithmetic expression > — , ■ > 

>-<arithmGtic exprGssion> — ) 1 

The DEQV function returns, as a double-precision value, 

iirsc •; arithmetic expreEsion> EQV second <arithinetic expression) 

Both arithmetic expressions are first extended to double precision, if 
necessary, and the EQV operation is performed on all 96 bits. 

<derf function> 

— DERF — ( — <arithmetic expression > — ) — i 

The DERF function returns, as a 'double-precision value, the value of the 
standard error function at the specified arithmetic expression. For any 
valid N, DERF(-N) = -DERF(N). 

<derfc function > 

— DERFC — ( — <arithmetic expression/ — ) — 1. 

The DERFC function returns, as a double-precision value, the complement 
of the value of the standard error function at the specified arithmetic 
expression. For any valid N, DERFC(N) = i - DERF(N). 

<dexp function> 

— DEXP — ( — <arithmetic expression> — ) — I 

The DEXP function returns, as a double-precision value, 

e "* orithmetic expression) 
where e is the base of the natural logarithms. 
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<dgamma f unctlon> 

— DGAMMA — ( — < arithmetic exp'ression> — ) — I 

I 

The DGAMMA function returns, as. a double-precision value, the value of 
the gamma function at the specified arithmetic expression. 

<diiiip functipn> 

— DIMP — ( — <arithmetic expr^ssion> — , — > 

j ■ 

>-<arithmetic expression> — ) — ^ ^ — '— • 1 

The DIMP function returns, as a double-precision value, 

first <arithmetic expression> IMP second ^arithmetic expression> 

Both arithmetic expressions are first extended to double precision, if 
necessary, and the IMP operation is; performed on all 96 bits. 

<dinteger function> 

■ — DINTEGER ~ ( ~< arithmetic iexpression> — ) — 1 

The DINTEGER function returns the value of the arithmetic expression as 
a double-precision integer value. Specifically, the function returns 

DOUBLE(ENTIER( <ari thmetic expression? + 0.5)) 

<dlgaiiiina function > 

— DLGAMMA — { — <arithmetic Expression ■> — ) — i 

The DLGAMMA function returns, as a double-precision value, the natural 
logarithm of the gamma function at khe specified arithmetic expression. 
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DLN ( — <arithmetic expression >-- ) — I 

The DLN function returns, as a double-precision value, the natural 
logarithm of the specified arithmetic expression. 



<d1og function> 

— DLOG — ( — <arithmetic expression > — ) — | 

The DLOG function returns, as a double-precision value, the base-10 
logarithm of the specified arithmetic expression. 



<db8iax function > 



l< , I 

i I 
DMAX — ( <arj.thmetic expression > ) -- 



The DMAX function returns, as a double-precision value, the maximum of 
the values of all the specified arithmetic expressions. 



<dinin function > 



DMIN — ( <arithmetic expresslon> ) — I 

The DMIN function returns, as a double-precision value, the minimum of 
tne values of all the specified arithmetic expressions. 
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<dnabs function> 



— DNABS — ( — ^<,arithmetic expression> — ) — | 



The DNABS function returns, as a dduble-precision value, the negative of 
the. absolute value of the specified; arithmetic expression. 



<dnot function> 



— DNOT — ( -^<arithmetic expression> — ) -• 



The DNOT function returns, as a double-precision value, the logiccil 
complement of the value of the arithmetic expression. The arithmetic 
expression, is first extended to dotjible precision, if necessary, and the 
NOT operation is performed on all 46 bits. 



<dor functlon> 

— DOR ~ ( — <ar;|thmetic express! on > — , > 

>-<arithmetic expression> — ) — • ! 



The DOR function returns, as. a double-precision value, 

first <arithmetic expression> OR second <arithmetic expression) 



Both arithmetic expressions are first extended to double precision, if 
necessary, and the OR operation is performed on all 9b bits. 
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<double function> 

The DOUBLE function has three forms, each of which returns a 
double-precision value. 

— DOUBLE — ( — <arithinetic expression > — ) — | 

This form of the DOUBLE function returns the value of the arithmetic 
expression extended to a double-precision value. 

— DOUBLE — ( — <arithmetic expression)-- , — <arithmetic expression>-> 
>_ ) __| 



This form of the DOUBLE function returns a double-precision value in 
which the first word is equal to the value of the first arithmetic 
expression and the second word is equal to the value of the second 
arithmetic expression. The arithmetic expressions are first 
truncated to single precision, if necessary. 



— DOUBLE — ( <pointer expression > — , — > 

i I 
|-<update pointer >- I 

>-<arithmetic expression) — ) ' i 



See also 

<update pointer) 379 



This form of the DOUBLE function returns, as a double-precision 
value, the decimal value represented by the string of characters 
starting with the character pointed to by the pointer expression. 
The arithmetic expression specifies the length of the string and 
must have a value, when rounded to an integer, less than 24. 



A zone field configuration of 1"1101" for 8-bit characters or 1"10" 
for b-bit characters in the least significant character position 
causes the result of the function to be negative. With 4-bit 
characters, a 1"1101" in the most significant character position 
results in a negative value. 
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The state of the pointer expression when the count is exhausted can 
be preserved by using the <updat:e' pointer > construct. 



<drop function > . ' i : 

DROP -- ( — :< String . expressipn > — , <arithmetic expression> > 

J ____„_ „ ____ _ _ 



The DROP function returns a string with a value equal to the value of 
che string expression with the first <arithmetic expression > characters 
deleted. The value of the' arithir^iet ic . expression is rounded to an 
integer, if necessary. An error, occurs if the rounded value of the 
arithmetic expression is greater than the number of characters in the 
string expression or less than | zero. If the rounded value of the 
arithmetic expression is zero, the result is the same as the value of 
i;.nc? string expression. If t:he| rounded value of the arithmetic 
expression is equal to the length cjf" tlie string expression, the result 
is the null string. i. 



The DROP function and the TAKE furi(ction are complementary functions. 

This means that for any string expression S and any arithmetic 

expression A in the range 0. <= A <=j LENGTH(S), the following relation is 
always TRUE: ■ ! i . 

S = TAKE(S,A) CAT DROP(S,A) : ' 

See the TAKE function in this sect 4 on. 



Examples 

In the examples below, string S: has a) length of b and contains 
S^'ABCDEF". i 



DROP {S, 2) ^ 8"CDEF" 
BR0P(TAKE(S,4) ,2) = 8"CD" 
DROP! S, 6) = the null string 



550 

Intrinsic Functions ALGOL REFERENCE MANUAL 

<dscaleleft function> 

DSCALELEFT ~ ( — ^<arithmetic expression > — , — ~ ■ > 

>-<arithmetic expression> — ) — -~ — -| 

The DSCALELEFT function returns, as a double-precision value, 

first <arithinetic express ion >*( 10 ** second <arithrhetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. The DSCALELEFT function is undefined when 
the integerized value of the second arithmetic expression is less than 0 
or greater than 12. 



<dscaleright function > 



~ DSCALERIGHT — ( ~<arithmetic expression> — , — -- — — ' ^^-> 

>-<arithmetic expression>- — ) — — ^- ■ — ■ — ■ ~| 



The DSCALERIGHT function returns, as a double-precision value, the 
rounded result of 

first <arithmetic expression>/(10 ** second <arithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than 0 or greater than 
12. •. 



<dscalerightt f unct ipn> 
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— DSCALERIGHTT — (— <arithmetlic express!iDn>-^ , ---^ > 

>-<arithm.etic expression> — ) — - — .— — ; -~ ._ — | 

The DSCALERIGHTT function returns , (as a double-precision value, the 
truncated result of 

first <arithmetic expression >/( io ** second <arithinetic expression> ) 

where the second arithmetic expression, rounded, to an integer, has a 
value in the range 0 to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than 0 or greater than 
12. ■ 



Kdsin functioh> 

~ li)SIN ^- ( — <arithmetic expression>— )— I 

The DSIN function returns, as a double-precision value, the sine of an 
angle of ^arithmetic expression> rajdians. 



<dsinh function> 



— DSINH — ( — <arithmetic exp!ression> — ) — i; 

■The DSINH function returns, as a double-precision value, the hyperbolic 
sine of the specified arithmetic expression. . 



<dsqrt function > 



~ DSQRT — { — <arithmetic expression^-- ) — I 

The DSQRT function returns, as a double-precision value, the square root 

of the specified arithmetic expression J The value of the arithmetic 
■expression must be greater than or: equal to zero. 



552 

Intrinsic Functions ALGOL REFERENCE MANUAL 

<dtan function > 



— DTAN — ( — <arithmetic expression > — ) i 



The DTAN function returns, as a double-precision value, the tangent of 
an angle of <arithmetic expressicn> radians. 



< dtanh f i^nct ion > 



— DTANH — ( — <arithmetic expression)-— ) — \ 

The DTANH function returns, as a double-precision value, the hyperbolic 
tangent of the specified arithmetic expression. 



<entier function> 



— ENTIER -- ( --<arithmetic expression> — ) — I 



The ENTIER function returns the largest integer not greater than the 
value of the arithmetic expression. i 



Because cf the limitation? of fr^note representat i on ■■^rif-hmetic,, rbe 
ENTIER function erroneously returns zero, rather than -1- for negarivp 
numbers of small magnitude. For a single-preci ?; ion expression, thf- 
threshold is -0.5 * 8**-13 (approximately -«>.09E-13) . This number 
correctly yields -1, whereas the next smaller (in magnitude) 
single-precision number incorrectly yields zero. For a double-precision 
expression, the threshold can differ on various systems (because of 
different algorithms for double-precision rounding), but it is In the 
vicinity of -8**-2b (approximately -3.31E-24). 



Tne ENTIER functjon returns an incorrect resu l t f o^- • y. i - . r ■ 
negative integers less than or equal to --(8**32 K "Ihf^ ve- -yi :-i)e 
function for an integer expression should be equal to the value of the 
expression. However. ENTIER( -68719476736 ) returns a value of 
-68719476737 . 



The ENTIER function is not a simple truncation functjon. as : 1 lustrated 
by the examples. For a simple truncation function, see tiK-: INTEGERT 
function in this section. 
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Examples 

ENTIER(2.6) =2 
ENTIERO.l) = 3 
ENTIER(-O.Ol) = -1 
ENTIER(-3.4) = -4 

ENTIER(-1.8) = -2 J 

<erf functions 

— ERF — ( --orithmetic express ion >— ) — I 

The ERF function returns, as a real valiue, the value of the standard 
error function at the specified arithmetic expression. For any valid N, 
ERF(-N) = -ERF(N). 

<erfc function> 

— ERFC — ( — <arithmetic expression>-- ) — I 

The ERFC function returns, as a real value,; the complement of the value 
of the standard error function at the specified arithmetic expression. 
For any valid N, ERFC(N) = 1 - ERF(:N). 

<exp function> 

— EXP — ( — <afithmetic expression> — ) — I 

The EXP function returns, as a real value, 

e ** <arithmetic expression> 
where e is the base of the natural logarithms. 



I 
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'firEi function> 



— FIRST — ( — <string expreEsion> — ) — I 



The FIRST function returns, as a real value, the ordinal position in the 
EBCDIC, ASCII, or hexadecimal collating sequence of the first character 
in the string expression. This function returns an ordinal position in 
the EBCDIC collating sequence if the string expression is EBCDIC, an 
ordinal position in the ASCII collating sequence if the string 
expression is ASCII, and an ordinal position in the hexadecimal 
collating sequence if the string expression is hexadecimal. A run-time 
error occurs if the string expression is the null string. 



E xamples 



FIRSTC'ABC") = 193 {4"C1") 
FIRST( V'NNXX" ) = 78 (4"4E") 
FIRST(4"F1F2" ) = 15 {4"0F") 



<f irstone f unction > 



— FIRSTONE — ( — <arithmetic expression> — ) — 



The FIRSTONE function returns, as an integer value, the bit number plus 
1 of the leftmost nonzero bit in the value of the arithmetic expression. 
The FIRSTONE function returns zero if all the bits are zero. If the 
expression is double precision, only the first word of its value is 
examined. 



<firstword function> 

— FIRSTWORD — ( > 

>-<ari thmetic expression> ) i 

I I 
I- . — <real variable>-| 



See also 

<real variable > 
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The FIRSTWORD function returns, as a real value, the first word of zhe 
double-precision arithmetic expression. The arithmetic expression is 
first extended to double precision.' if necessary. If the real variable 
parameter is specified, the second word of the double-precision 
arithmetic expression is stored in the varipible. 



<fix statement > 



The FIX statement returns a Boolean value. For more information, refer 
to "FIX Statement. " 



<free statement > 



The FREE statement returns a Boolean value. For more information, refer 
to "FREE Statement." 



< gamma function> 



— GAMMA — ( --<ar ithmetic expression> — ) — i 



The GAMMA function returns, as a real value, . the value of the gamma 
function at the specified arithmetic expression. 



< happened function > 



— HAPPENED — ( — <event designator > — ) -- ) 



See also 

<event designator >. 78 



The HAPPENED function is a Boolean: function that returns TRUE if the 
happened state of the specif ieid event is TRUE (happened) and returns 
FALSE if the happened state is FALSE (not happened). 
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— HEAD — ( — <string expression> — , — <string character set> > 

>_ ) > _ I 

<string character set> 

<string constant> ! 

I II I 

I- NOT l-<truth set table>-| 



See also 

<string constant> 523 

< truth set table> 382 



The HEAD function returns a string whose value consists of the leftmost 
characters of the string expression up to, but not including, the first 
character that is not a member of the string character set. If the 
first character of the string expression is not a member of the string 
character set, the null string is returned. If all characters of the 
string expression are members of the string character set, the entire 
string expression is returned. 



The string character set must be of the same character rype as the 
string expression. If a truth set table is used, it must not be 
composed of characters of different character types. "NOT" indicates a 
string character set made up of all characters that are not specified in 
the string constant or truth set table, but that are of the same 
character type as the string expression. 



The HEAD function and the TAIL function are complementary functions. 
This means that for any string expression S and any string character set 
C, the following relation is always TRUE: 

S = HEAD(S,C) CAT TAIL(S,C) 



See the TAIL function in this section. 
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Examples 

In the examples below, S is a : string of length 9 that contains 
8"ABC/l-2+3". 

HEAD(S,NOT "/") = 8"ABC" 
HEAD (S, ALPHA) = 8 "ABC" 
HEAD(S,"123") = the null string 

<imag function> 



— IMAG — ( — :< complex expression> — ) — i 



The IMAG function returns, as a real value; the imaginary part of the 
specified complex expression. 

For a function that returns the. rekl part of a complex expression, see 
the REAL function in this section. 



<integer function> 

The INTEGER function has two forms;, each of which returns an integer 
value. 



— INTEGER — ( — <arithmetic expression>~ ) ^- i . 

This form of the INTEGER jfunction; returns the value of . the 
arithmetic expression . integejrized with rounding. Specifically, it 
returns 

ENTIER( <arithraetic expres;sion> + 0.5) , 
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—INTEGER ~ ( 



<pointer expression >~ , 



> 



-<update polnter>-| 



>-<arithinetic expressions — ) 



See also 



< update pointers 



379 



This form of the INTEGER function returns, as an integer value, the 
decimal value represented by the string of characters starting with 
the character pointed to by the pointer expression. The absolute 
value of the integer value to be returned must be less than or equal 
to 549755813887. 



The arithmetic expression specifies the length of the string of 
characters and must have a value, when rounded to an integer, less 
than 24. If the rounded value of the arithmetic expression is 24 or 
greater, the program is terminated with a fault. If the length is 
izero, a result of zero is returned. 

A zone field configuration of 1"1101" for 8-bit characters or 1"10" 
for 6-bit characters in the least significant character position 
causes the result of the function to be negative. With 4-blt 
characters, a 1"1101" in the most significant character position 
results in a negative value. 



The state of the pointer expression when the count is exhausted can 
be preserved by using the <update pointers construct. 



cintegert functions 



— INTEGERT ~ ( ~<arithmetic expressions — ) — I 

The INTEGERT function returns the value of the arithmetic expression 
integerized with truncation. 



The INTEGERT function does not necessarily return the same value as the 
ENTIER function. For example. INTEGERT (-1 . 2) = -1, but 

ENTIER(-1.2) = -2. 
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< length function > 

— LENGTH — ( — < String expression^-- ) --| 

The LENGTH function returns, -^s an int'^ger value, the number of 
characters in the string that results from evaluation of the string 
expression. The null string has a length of zero. 



xlinenumber function > 



— LINENUMBER —1 

The LINENUIJBER function returns as an integer value, the sequence 
number of the source file record ' on which it appears. 



<linfclibrary function> 

— LINKLIBRARY— ( —<library identifier >-- ) —I 



See also 

<library identifier >. .. . . ;. > .^ ..... . . . . . . . . . . . 129 

The LINKLIBRARY function determines whether or not the program is 
currently linked to or is capable of being linked to the library program 
specified by the library identifier. Results Indicating a successful 
linkage are returned by the LINKLIBRARY function if the program is 
presently linked to the library pr if the program is capable of being 
linked, in which case the LINKLIBRARY function performs the linkage. If 
the program cannot be linked to the library, the function returns a 
result indicating the reason for the failure. In either case, the 
program continues to execute: that is , use of the LINKLIBRARY function 
prevents termination or suspelnsion of a program upon an unsuccessful 
attempt to link to a library. i . 

During the linkage process, an attempt is made to link to every entry 
point exported from the library whose name matches an entry point 
declared in the program. Only those names that match are checked for 
correct function type, numberi of parameters, and parameter types. 
Therefore, the LINKLIBRARY function does not check that every entry 
point declared in the program is' also exported from the library. 
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The values -returned by the LINKLIBRARY function can be interpreted as 

follows: 



Value Meaning 



2 Successful linkage was made to the library, but not all entry 
points were provided, 

1 Successful linkage was made to the library, and all entry 
points were provided. 

0 The program was already linked to the specified library at the 
time of the LINKLIBRARY call. 

-1 The library code file is missing. 

-2 The family size of a process running in Swapper was exceeded on 
the attempt to link to the library. 

-3 A by-calling procedure specified more than one library task. 

-4 The library is not a system library. 

# 

-5 The number or types of parameters provided by the library do 
not correspond to those declared in the program. 

-6 The library was terminated, canceled, or thawed before being 
frozen; therefore, the library was not successfully initiated. 

-7 A circular chain of library linkages was detected. A library 
cannot reference itself, either directly or indirectly, through 
a chain of library references. 

-8 A by-calling procedure never specified a library task. 

-9 A bad task was passed by a by-calling library procedure. 

-10 A library feature that was used is not implemented. 

-11 The library template contained an illegal provision type. 

-12 The library template level is obsolete. This program must be 
recompiled. 

-13 The library directory level is incompatible with the library 
template level. The older program must be recompiled. 

-14 The program cannot link to a system library. 



-15 



A task array for a by-calling library was not declared 
library's stack. 



in the 
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Value Meaning 



-16 This program is not authorized to use this library procedure. 

-17 The library is not visible to the program attempting to link to 
the library. 



< list lookup function> 

— LISTLOOKUP ~ ( 
>- , — <arithmetic 

See also 

<array row> . . . 



— <arithmetic expression> — 
express ion > — ) — 



, — <array row> > 

1 

43 



The LISTLOOKUP function causes a linked list of words to be searched and 
returns, as an integer value, an index into the list as follows: 

1. The array row is indexed' by the value of the second arithmetic 
expression and the word is extracted. Each word contains a 
value (in field [47:28]) and a link (in field [19:20]) to the 
next word of the linked llist. 

2. If the value in the extracted word is greater than or equal to 
the value of the . first arithmetic expression, the operation 
stops, and the index of the word whose link points to the 
extracted word is returned by the function. 

3. If the value in the extracted word is less than the value of 
the first arithmetic expression, the link of the extracted word 
is used as an index into the; array row, a new word is 
extracted, and the process is repeated. 

A word with a link of zero terminates the search. The value of a word 
is tested only if the link field is nonzero. If the linked list is 
exhausted (if a word with a link of zero is encountered), a value of -1 
is returned by the LISTLOOKUP f unlet ion. 
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<ln function> 



LN — ( — orithmetic expressions — ) — 



The LN function returns, as a real value, the natural logarithm of the 
specified arithmetic expression. 



<lngainina functlon> 

— LNGAMMA — ( — <arithmetic expression's — ) — 



The LNGAMMA function returns, as a real value, the natural logarithm of 
the gamma function at the specified arithmetic expression. 



<log function> 

— LOG — ( — <arithmetic expression> — ) 



The LOG function returns, as a real value, the base-10 logarithm of. the 
specified arithmetic expression. 



<mask.search function> 

— MASKSEARCH — ( — <arithmetic expression > — , > 

>-<ar ithmetic exDression> — , <array row> ) ' 

I I 
I -<subscripted variables- I 



See also 

<array row> 4 3 

<subscripted variables 225 



The MASKSEARCH function performs the same operations as the ARRAYSEARCH 
function, except that it is intended for use only with unpaged 
( unsegmented ) arrays. 
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If the third parameter to the MASKSEARCH function is an array row or a 
subscripted variable of a paged (segrnented) array, then a warning 
message is given at run time. This warning message is given only the 
first time the statement containing the MASKSEARCH function is executed. 

If the third parameter is an array row' of a paged array, execution of 
the MASKSEARCH function causes a fault. . ; 



If the third parameter is a subscripted variable of a paged array, then 
no fault is generated at run tp.me, but the results can be unexpected. 
The MASKSEARCH function searches bnly the 256-word segment containing 
the specified array element. If the target value is found in that array 
segment, the index__j:eX4tive_j:o th e beginning of the segment is returned. 
If the target is not found in that segment, -1 is returned. 



<max function > 



|< , J 

I . .1 
— MAX — ( <arithmetic ex,pressidn> — - ) — 



The MAX function returns, as a rejal value, the maximum of the values of 
all the specified arithiiietic expressions. 



<messagesearcher statement > 



The MESSAGESEARCHER statement r;eturns an integer value. For more 
information, refer to "MESSAGESEARCHER Statement." 



<min function> 



— MIN — ( <arithmetic e5j:pressioh> ) — j 



The MIN function returns, as a real value, the minimum of the values of 
all the specified arithmetic expressions. 
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<nabs function > 



~ NABS — ( ~<arithmetic expression) — ) — I 



The NABS function returns, as a real value, the negative of the absolute 
value of the specified arithmetic expression. 



< normalize function > 



— NORMALIZE — ( ■ — <arithmetic expression) — ) — I 



The NORMALIZE function returns, as a real value, the value of the 
arithmetic expression, normalized and rounded to a single-precision 
operand. (For more information on normalized format, refer to "Real 
Operand" in the appendix "Data Representation.") 



See also 

Real Operand 820 



<offset function) 



— OFFSET — ( — <pointer expression > — ) — I 



The OFFSET function returns, as an integer value, the number of 
characters between the character position referenced by the pointer 
expression and the beginning of the array row, not including the 
character at which the pointer expression is pointing. The function 
value is in terms of the character size of the pointer expression. If 
it is a word pointer, the offset is given in terms of 8-bit characters. 
If the pointer expression points to a paged (segmented) array, the 
OFFSET function returns the total offset from the beginning of the first 
segment of the row. 



For a function that returns the number of characters between the 
character position referenced by a pointer expression and the end of the 
array row, see the REMAIN I NGCHARS function in this section. 



Exipressions 
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<ones f unction > 

-~ ONES — ( — <:ari thmet ic e5<|pression:> — ) — I 

The ONES function returns, as an linteger Value, the number of nonzero 

■■■ t':. in the value of the ariithraet i c expression. If the arithmetic 
esb'ion is double precision, all 96 bits of its value are examined. 



T:;e (:PE>" sratemeni: returns an idteger value. For more information, 

ri-ti-'f zo ' OPBK statement." | : i 



<jx>inter function > 



POINTER — ( : < array roW> 



j - ^subscripted variable>- 



- ) 



<character size> 



<pointer primary>-i 



<character size> 



- 4 



- 6 



!- 7 



j- 8 - I 



See also 



< array row> . . . ... 

<pointer primary^ . . 
<subscripted variable> 



43 
519 
225 
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The POINTER function generates a pointer to the specified location. 

if the first parameter is an array row, the pointer references the first 
character of the first word of the specified array row. If the first 
parameter is a subscripted variable, the pointer references the first 
character of the array element specified by the subscripted yjariable. 

If the second parameter is not given, the character size of the pointer 
is six or eight bits, depending on the default character type. (For 
more information on the default character type, refer to "Default 
Character Type" in the appendix "Data Representation.") 



If the second parameter is a character size of 4, 6, or 8, the character 
size of the pointer being generated is four bits, six bits, or eight 
bits i respectively. If the second parameter is a character size of 7, 
the character size of the pointer is eight bits. If the second 
parameter is a character size of 0, the pointer is word-oriented, rather 
than character-oriented: it is single precision if the array it points 
to is single precision (INTEGER, REAL, or BOOLEAN) and double precision 
if the array is double precision (DOUBLE or COMPLEX). 



If a pointer primary is given as the second parameter, the character 
size of that pointer primary is used for the character size of the 
pointer being generated. 

See also 

Default Character Type. . . . . . . . .... . . . . . . . . .817 



NOTE 

The BCL data type is not supported on all 
A Series and B 5000/B 6000/B 7000 Series 
systems. The appearance of a BCL 
construct that may cause the creation of 
a BCL descriptor, such as a 6^bit 
pointer, will cause the program to get a 
compile-time warning message. 



EXjPressions 



567 

Intrinsic Functions 
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BEGIN . 

ARRAY A1.A2[0:9]; 

POINTER PI, P2,P3,P4, PS; ■ 

PI := POINTER(Al); 

P2 := POINTERS All 9]); 

P3 := POINTER (Al ,4) r 

P4 := POINTER ( A2[6] .P3); ; . 

$ SET BCL ■ 

P5 := POINTER(Al): . ■% LAST STATEMENT 

END. 



Execution of this program has the following results: 

PI This pointer has a charsicter size of eight bits (the default 
character type is EBCDIC when Pi is assigned) and points to the 
first 8-bit character ojf the first element of array Al. 

P2 This pointer has a character si2ie of eight bits and points to 
the first 8-bit character of eleimerit 9 of array Al. 

P3 This pointer has a character sizie of four bits and points to 
the first 4-bit character of the first element of array Al. 

P4 This pointer has a character size of four bits and points to 
the first 4^bit character of element 6 of array A2. 

P5 This pointer has a character size of six bits (when P5 is 
assigned, the default character type is BCL) and points to the 
first fe-bit character of the first element of array Al. 
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<pot function> 



— [ — <arithmetic expression>~ ] — I 

I 



The POT (Power of Ten) functions. POTL (low), POTC (center), and POTH 
(high), together provide the value 

10 ** <arithmetic expression > 

from three tables that are double-precision, read-only arrays . Each of 
the POT functions is defined only for integerized values of the 
arithmetic expression falling in the range 0 through 29604. The 
complete value of 10 ** <arithmetic expression> can be computed using 
the following arithmetic expression: 

POTL[ <arithmetic expression> . [ 5 : 6 ] ] 

* POTC[ orithmetic expression> . [11 : 6] ] 

* POTH[<arithmetic expression> . [14: 3] ] 



Examples 



RESULT := POTL[X] ; % WHERE X < 64 

DEFINE p6t(T) = (POTL[T.[5.6]] * POTC [T . [ 11 : 6 ] ] * POTH[T . [ 14 : 3 ] ] ).# : 
ONEDIVTENTOI := 1 / POT(I); 



POTL — 

I . 

I- POTC - 
I 

I - POTH - 



<processid function > 



— PROCESSID — I 



The PROCESSID function returns a positive integer value that uniquely 
identifies the process executing the function. 

The PROCESSID function returns a value that remains unique to that 
process for the duration of its execution. However, the value is not 
guaranteed to be the same on every invocation of the PROCESSID function. 
For example, upon restarting from a checkpoint, the value of the 
PROCESSID function can have changed. Also, after a process terminates, 
its PROCESSID value can be assigned to a new process. 



< random f unc t ion > 



Expressions 
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— RANDOM — (— •<arithmetic :vairiable;>— )— i 



See also\ 

<arithinetic variab;le> . . . . . , . . . * . . . ... . . . 225 

The RANDOM f unction returns , as a real value / a random number that is 
greater than or equal to 0 and less than 1. The arithmetic variable is 
a call ^by-name parameter, and its value is changed each time the 
function is referenced. ^ A compile-time ;or run-time error occurs if the 
parameter is not a single-precision arithmetic variable. 



<read statements 



The READ statement returns a Boolean value. For more information, refer 
to "READ Statement. " 



<readlock. functions 

Taking only one memory cycle, thie READLOCK function stores the value of 
the specified expression in the designated variable and returns the 
previous contents of the variable. 



The READLOCK function has three forms. One form returns a real value, 
one form returns a Boolean valu^, and one form returns a pointer. 

— READLOCK — ( — orithmetic expression>-- , — <arithmetic variable>-> 
>- ) _____ _________._______^_____-__,__-_____._ ____ I 



See also 

<arithmetic variable> . . . . . . . . ... . . . . . . . . . 225 

This form of the READLOCK function stores the value of the 
arithmetic expression in the arithmetic variable and returns the 
previous contents of the variable as a real value. Both the 
variable and the expression imust be single precision. 
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— READLOCK -- (— <Bbolean expression> — '■■ , — <Boolean variable>— )— 



See also 

<Boblean variable>. . . . . . . . . . .... . . . . ... . * 234 



This form of the READLOCK function stores the value of the Boolean 
expression in, the Boolean variable and returns the previous contents 
of the variable as a Boolean value. 



— READLOCK — ( — <pointer expression> — , — <pointer variables — ) 



See also 

<pointer variable>. . . ... . . . . . .... . . 241 



This form of the READLOCK function stores the value of the pointer 
expression in the pointer variable and returns the previous contents 
of the variable as a pointer value. 



<real functlon> 



The REAL function has four forms, each of which returns a real value. 



— REAL — ( — <arithmetic expression>— ) — 



This form of the REAL function returns the value of the arithmetic 
expression rounded to a single-precision, real value. 



— REAL — (— <Boolean expression> — ) ~| 



This form of the REAL function returns the value of the Boolean 
expression as a real value. All bits of the Boolean expression are 
used. 
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REAL — ( --< complex expression >~ ) — I 

This form of /the REAL function returnis^ as a real value, the real 
part of the specified complex expression. 

For a function that returns the imaginary part of a complex 
expression, see the IMAG function in this section. 



— REAL — ( ~<pointer expressidn> — , — <arithmetic expression> — ) ^| 

This form of the REAL function returns, as a real value, the string 
of <arithmetic expression > characters starting with the character 
indicated by the pointer expression. 

If the arithmetic expression ; indicates a string of characters that 
is less than or equal to 4S bits long, this string is 
right-Justified in one word with leading zeros, if necessary, and 
this word is returned as ithe function result . If the arithmetic 
expression indicates a string of characters more than 48 bits long 
but less than or equal! to 96 bits long, this string is 
right-justified with leading |zeros , if necessary, in a two-word 
operand, and then only the first word is returned as the function 
result. If the arithmetic expresision indicates a string of 
characters more than 96 bits long, a run-time error occurs. 



<remainingchars function> 

— REMAININGCHARS — ( — <pointer expression>— ) — 1 

The REMAININGCHARS function returns, as an integer value, the number of 
characters between the character position referenced by the pointer 
expression and the ^nd of the array row, including the character at 
which the pointer expression is pointing. The returned value is in 
terms of the character size. of the pointer expression. If it is a word 
pointer i the value returned is in terms of 8-bit characters. If the 
pointer expression points to a paged (segmented) array, the 
REMAININGCHARS function gives the number of characters left in the 
entire array row. 

For a function that returns the number of characters between the 
character position referenced by a pointer expression and the beginning 
of the array row, see the OFFSET function in this section. 
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<removefile statement > 



The REMOVEFILE statement returns a Boolean value. For more information, 
refer to "REMOVEFILE Statement." 



<repeat function> 

— REPEAT — ( — <string expression> — , — <ar.ithmetic expression>-> 
>- ) _ _ _ _ — ^_-! 

The REPEAT function returns a string according to the following rules: 

1. If <arithmetic expression> = 0, the result of the REPEAT 
function is the null string. 

2. If <arithmetic expression> > 0, the result of the REPEAT 
function is the same as if orithmetic expression> occurrences 
of the value of the string expression were all concatenated 
together. 

3. If <arithmetic expression > < 0, the result of the REPEAT 
function is either a compile-time or a run-time error. 



The value of the arithmetic expression is rounded to an integer, if 
necessary, before it is used as the repeat count. 



Examples 

REPEAT ("ABC", 3) = "ABCABCABC" 

REPEAT ("WON'T WORK",0) = the null string 

<scaleleft function> 



— SCALELEFT — ( — orithmetic expression>- 
>-<arithmetic expression > — ) 



I 
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The SCALELEFT function returns, as an integer value, 

first <arithmetic express ion >*(1G: ** second <arithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. The SCALELEFT function is undefined when 
the integerized value of the second arithmetic expression is less than 0 
or greater than 12... . 



<scaleright function > 

— SCALERIGHT — { — <ar it hme^tic express ion > — , 
>-<arithmetic expression >— ); : -- 



The SCALERIGHT function returns, -as an integer value, the rounded result 
of 

first <arithmetic expression:^/( 10 ** second <arithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. A r'un-time error occurs if the integerized 
value of the second arithmetic expression is less than 0 or greater than 
12. 



<scalerightf functlon> 

— SCALERIGHTF — ( ~<arithitietic expression >— , 
>-<ar ithmet ic expression .) — — ._. — .. — _, 



The SCALERIGHTF function returns; as a real value, a left- justified , 
packed decimal (4-bit decimal) niiimber representing 

first <arithmetic expression> MOD (ID ** second xarithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than 0 or greater than 
12. 



The number of significant digitS; ret.urnecJ by the function is equal to 

the integerized value of the second arithmetic expression. The external 
sign flip-flop (EXTF) is set to reflect the sign of the first arithmetic 
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expression- for use with the editing phrases specified in a PICTURE 
declaration. 



Examples 



SCALERIGHTF(1234,4) = 4"12340000000C" 
SCALERIGHTF( 12345678, 12) = 4"000012345678" 



< scaler ightt function > 

— SCALERIGHTT — ( — <arithmetic express ion > — , — -■ > 

>-<arithinetic expression> — ) I 



The SCALERIGHTT function returns, as an integer value, the truncated 
result of 

first orithmetic expression >/( 10 ** second <arithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range 0 to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than 0 or greater than 
12. 



<secondword function > 



~ SECONDWORD — ( — <arithmetic expression>~ ) — I 



The SECONDWORD function returns , as a real value, the second word of the 
double-precision arithmetic expression. The arithmetic expression is 
first extended to double precision, if necessary. 

a double-precision 
this section. 



For a function that returns the first word of 
arithmetic expression, see the FIRSTWORD function in 
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<seefc statement > 

The SEEK statement returns a Boolean value. For more information, refer 
to "SEEK Statement." 

<setactualna]|ie function> 

— SETACTUALNAME — (. ~< library entry point identifier > — , > 

>-<pointer express ion >-- ) -■ ; — - — — — — ■ I 

<library entry point identifiers 

k <procedure identifier/ declared with a <library entry point 
specif ication> . 



The SETACTUALNAME function determines whether or not the ACTUALNAME of 
the library entry point specified by the library entry point identifier 
can be changed to the name pointed! to by the pointer expression. The 
function then makes the change! if it is possible. Results of a 
successful change are returned upon completing the ACTUALNAME change; 
otherwise, results indicating the reason for failure are returned. 



The ACTUALNAME of an entry point of a linked library cannot be modified. 
Therefore, a linked library mukt be delinked before calling the 
SETACTUALNAME function to change the ACTUALNAME of any of its entry 
points. The function can be Called to modify an entry point of a 
library that has not yet been linkfed. 

Starting with, the first character jpointed to by the pointer expression, 
characters are included as the new entry point name until either a 
period Is encountered, the maximum allowable number of characters is 
included, or the end of the array row is encountered. The last case 
results in an error condition. 



See also 



<library entry point specif ication> . .: 
<procedure identifier >. . . . J . , . . 



169 
165 
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The SETACTUALNAME function returns the following integer values: 



value Meaning 



1 A successful change was made to the ACTUALNAME of the entry 
point . 

0 The new ACTUALNAME is the same as the current ACTUALNAME of the 
entry point. 

^1 The library is linked. The library must be delinked before the 
SETACTUALNAME function is called. 

-2 The library entry point identifier is not currently in an 
accessible library template. 

-3 A paramete'r error occurred in the SETACTUALNAME function. 



Example 



REPLACE NEWEPNAME BY "ENTRYP0INT2."; 
SETACTUALNAME ( EP2 , NEWEPNAME ) : 

Changes the ACTUALNAME of the library entry point EP2 to 
"ENTRyP0INT2", if possible. 



<sign function > 



— SIGN ( — <arithmetic expression> — } — ' 



The SIGN function returns an integer 1 if the value of the arithmetic 
expression is greater than zero, an integer 0 if the value of the 
arithmetic expression is equal to zero, and an integer -1 if the value 
of the arithmetic expression is less than zero. 
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<sin function> 



— SIN — ( — <arithmetic express ion >-- ) • — | 



The SIN function returns, as a reai value, the sine of an angle of 
<arithmetic expression > radians. 



< s ingle function> 

— ^ SINGLE ~ ( — <arithmetic expression> — ) — 



The SINGLE function returns, as' a real value, the value of the 
arithmetic expression normalized apd truncated to single precision. 



<sinh functions 



— SINH — ■ ( — <arithmetic expression>^- ) 



The SINH function returns, as a real value, th^ hyperbolic sine of the 
specified arithmetic expression. 



<size function> 

— SIZE— (— -<array designator >-■ — ) — 

: I I .: 

l-<pointer identifier >- | 



See also ' . ' ^ 

<array designator >. . . . . . . . . . . . 43 

<pointer identifier>. . . . . . . . . . . 160 



The "SIZEI <array designator >)" form of the SIZE function returns, as an 
integer value, the size of one dimension of the specified array in 
elements. If the array designator is an array name, the SIZE function 
returns the size of the first dimension of the specified array. If the 
array designator contains a subarray selector, the SIZE function returns 
the size of the dimension that corresponds to the first asterisk (*) 
subscript . 
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The "SIZE( <pointer identifier>)" form of the SIZE function returns, as 
an integer value, the character size of the specified pointer. If the 
character size of the pointer is four, six, or. eight bits, the value 
returned is 4, 6, or 8, respectively. If the pointer is word-oriented, 
the value returned is 0 or 2, depending on whether the pointer is single 
precision or double precision, respectively. If the pointer is 
uninitialized, the SIZE function returns zero. See the POINTER function 
in this section for a discussion of character size. 



< space statement > 



The SPACE statement returns a Boolean value. For more information, 
refer to "SPACE Statement." 



<sqrt function > 

— SQRT — ( — <arithmetic expression>— ) — 



The SQRT function returns, as a real value, the square root of the 
arithmetic expression. The value of the arithmetic expression must be 
greater than or equal to zero. 



<string function> 

STRING ( 

I I 

i- STRING4 - 1 
I ! 

I- STRING? -! 

i .1 

I- STRINGS -I 



— <pointer expression> — , — <arithmetic expressions— — : ) | 

I I 
I -<arithmetic expression> — , — ^-<arithmetic expressions- 1 

i_ * _ i 



The STRING function returns a string value. The function STRING4 
returns a hexadecimal string, the function STRING? returns an ASCII 
string, and the function STRINGS returns an EBCDIC string. The function 
STRING returns a string of the default character type. (For more 
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information on the default character type, see "Default Character Type" 
in the appendix "Data Representation. " ) 

See also 

Default Character Type. . . , . , . . . . . . ... ... . . 817 



If the first parameter to the STRING function is a pointer expression, 
the STRING function conye'rts the string of characters pointed to by the 
pointer expression Into a string. The humber of characters converted is 
given by the value of the arithmetic expression, rounded to an integer, 
if necessary* If this rpunded value is less than zero, a compile-time 
or ruh-time error occurs . if the rounded value is zero, the null string 
is returned. 

If the first parameter to the STRING function is an arithmetic 
expression; the STRING function returns a, string consisting of a decimal 
representatioh of the value of that arithmetic expression. If the 
second parameter is also an arithmetic expression, then the value of 
this expression, rounded to an integer, spjxecifies the length of the 
resulting string' If this value is les^ than zero, a compile-time or 
run-time error occurs. If this value is equal to zero, the null string 
is returned^ If the second parameter is an asteriSK, (*), the resulting 
string is exactly long enough to represent the value of the arithmetic 
expression with no blanics. If the value of the first arithmetic 
expression is zero and the second parameter is an asterisk., the 
resulting string is one character long,. 

When the STRING function is to return an ASCII or EBCDIC string and the 
first parameter is an arithmetic expression, its value is converted into 
the most efficient form, depending on the length specified. by the second 
paramieter. If both parameters J are arithmetic expressions and the 
rounded value of the second parameter is greater than the minimum number 
of characters needed to represent the first parameter, leading blanks 
are inserted in the resulting string. If both parameters are arithmetic 
expressions and the rounded value of the second parameter is less than 
the. number of characters needed to represent the f irst parameter, then a 
string of all asterislcs is returned. ; 

For the function STRING4, when the first parameter is an arithmetic 
expression, only the integer portion of the value of this expression is 
converted. If both parameters to STRING4 are arithmetic expressions and 
the rounded value N of the second parameter is less than the number of 
characters needed to represent the first parameter, then the rightmost N 
digits of the converted value of the first parameter are returned. If 
both parameters to STRING4 are arithmetic expressions and the rounded 
value of the second parameter is greater than the number of characters 
needed to represent the converted value of the first parameter, then 
leading zeros are inserted into the resulting string. 
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Examples 



STRING(P,20) 
STRING(PdINTER(A) ,N^3) 
STRING(256,*) = 8"256" 
STRlNG(-335.25,8) = 8" -335.25" 
STRING(4. 78@-2,5) = 8". 0478" 
STRING( 555000,1) = 8"*" 
STRING! 45b . 789 . 7 ) = 8"456 . 789" 
STRING4(123.456,8) = 4"00000123" 
STRING4( 12345678, 4) = 4"5678" 



<tail function > 



— TAIL — ( — <string expression> — , — <string character set>-— > 
>_ ) .... _ _ ...... ! 



See also 

< string character set> . . . . . ... . . . . . . . . . ... .556 



The TAIL function returns a string whose value consists of the rightmost 
characters of the string expression beginning with the first character 
that is not a member of the string character set. If all characters in 
the string expression are members of the string character set, the null 
string is returned. If the first character of the string expression is 
not a member of the string character set. the entire string expression 
is returned. 



The string character set must be of the same character type as the 
string expression. For an explanation of the string character set, see 
the HEAD function in this section. 
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The TAIL function and the HEAD function are complementary functions. 
This means that for any string expression S and any string character set 
C, the following relation is alway^ TRUE:. 

S = HEAD(S,C) CAT TAIL(S,C) 

See the HEAD function in this. sect|on. 



Examples 



In the examples below, S is a string of length 9 that contains 
8"ABC/l-2+3" . 



TAIL(S,NOT "-") = 8"-2+3" 
TAIL(DR0P(S,7) ,"+-") = 8"3" 



<tak.e function> 



-- TAKE — ( — <string expression> — , — -<arithmetic expression> > 

>- ) — — — — — — — — ^— — — — ^- — — i 



The TAKE function returns a string: whose value is equal to the first 
<arithmetic expression> characters talceh from the value of the string 
expression. The value of the arithmetic expression is rounded to an 
integer, if necessary. An error occurs if the rounded value of the 
arithmetic expression is greater than the number of characters in the 
string expression or less than zero. If the rounded value of the 
arithmetic expression is zero, the result is the null string. If the 
rounded value of the arithmetic expression is equal to the length of the 
string expression, the result is the same as the value of the string 
expression. 



The TAKE function and the DROP function are complementary functions. 
This means that for any string expression S and any arithmetic 
expression A in the range 0 <= A <= LEiNGTH( S ) , the following relation is 
always true: 

S = TAKE(S,A) CAT DROP(S,A) 



See the DROP function in this section. 
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Examples 



In the examples below, string S has a length of 6 and contains 
8"ABCDEF". 



TAKE(S,2) = 8"AB" 
TAKE (S, 4) = 8"ABCD" 
TAKE(DROP(S,2),2) = 8"CD" 



<tan function> 



— TAN — ( — <arithmetic expres&ion>~ ) ~| 



The TAN function returns, as a real value, the tangent of an angle of 
^arithmetic expression> radians. 



<tanh function > 



— TANH — ( — <arithmetic expression > — ) ~i 



The TANK function returns, as a real value, the hyperbolic tangent of 
the specified arithmetic expression. 



<time function> 



— TIME — ( — <arithmetic expression > — ) — 1 



The TIME function mak.es various system time values available. The value 
of the arithmetic expression is rounded to an integer, if necessary, 
before being used. The results returned for different values of the 
integerized arithmetic expression are given in the following table. If 
the integerized value of the arithmetic expression is not one of the 
values listed in the table, the TIME function returns the value zero. 
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Parameter Result ReturnecJ 



0 TiME(O) returns the current date in BCL characters in the 
format 6" YYDDD", where YY is the year and DDD is the day of the 

, year . ^ ^ 

1 TIME(l) returns the time Oif day, in sixtieths of a second, as 
an integer value. 

2 TIME(2) returns the elapsed procesisor time of the program, in 
sixtieths of a second, as ian integer value. 

3 TIME(3) returns the elapsed 1/0 time of the program, in 
sixtieths of a second, as Ian integer value. 

4 TIME(4) returns the value of a 6-bit clock that increments 60 
times per second. 

5 TIME(5) returns the month J day, and year as six BCL characters, 
right- justified, in the fbrmat 6"dOMMDDYY". 

b TIME(6): returns a muque number for the time and date (a 
timestamp) in the following form: : 

0 & (JULIANDATE-7O0O0) [47:16] & (TIME(ll) DIV 16) [31:32] 

7 TIME(7) returns the current date and time in the following 
form: 

[47:12] Year (1900-1999) 
[35:06] Month (1-12) 
[29:06] Day (1-31) 
[23:06] Hour (0-23) 
[17:06] Minute (0-59) 
[11:06] Second (0-59) 
[05:06] Day of the week 

(0 = Sunday;, 1 Monday, 6 = Saturday) 

9 TIME(9) returns the current time in EBCDIC characters in the 
format 8"HHMMSS", where; HH is the hour, MM is the minute, and 
SB is the second. 

10 TIME(IO) returns the same value as TIME(O), except that the 
time is expressed in EBCDIC characters in the format 8"YYDDD". 

11 TIME( 11) returns the same value as TIME(l), except that the 
time is expressed in multiples of 2.4 microseconds. . 



12 



TIME(12) returns the same value as TIME(2), except 
time is expressed in multiples of 2.4 microseconds. 



that the 
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Parameter 



Result Returned 



13 

14 

15 

16 
23 



TIME( 13) returns the same value as TIME(3), except that the 
time is expressed in multiples of 2.4 microseconds. 

TIME(14) returns the time elapsed since the last Halt/Load in 
multiples of 2.4 microseconds. 

TIME(15) returns the current date in EBCDIC characters in the 
format 8"MMDDYy". 

TIME(16) returns the same value as TIME(6). 

TIME(23) returns the system identification information in the 
following format: 

[31:08] ASD System flag. 



T1ME(24) returns the system type as a real value containing six 
EBCDIC characters. The name is left- justified with blank, fill. 
For example, on a B 5920 or B 5930 system, TIME(24) returns 
8"B5900 ". 



f unction > 



TRANSLATE — ( — <string expression> — , — <translate table> > 



0 - Npn-ASD system 

1 - Non-ASD system 

2 - ASD system 



[23:16] 
[07:08] 



Type of machine DIV 100 

(for example, 68 means B 6800). 

If the system type is not of the form 

B XXOO, this field contains zero. 



System serial number. 



>- ) 



See also 



< translate table > 



382 



The result of the TRANSLATE function is a string of the same length as 
the string expression with each character of the string expression 
translated according to the translate table. 
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The translate table used in the TRANSLATE function must not be composed 
of items of different character types. The translate table can be a 
translate table identifier declared in the program or one of the 
intrinsic translate tables. Th^ use of a subscripted variable as a 
translate table is not -allowed in the TRANSLATE function. 

Examples : ' 



TRANSLATE ( S , HEXTOEBCDI C ) 
TRANSLATE ( TAKE ( S , 10 ) , MYTT ) 



<value funeitlon> 

—• VALUE — ( ---<mnemonic file attribute value>-— — ^ ■ > 

I -<arithmetic-vaiued file attribute name>— - — | 
|-<Boolean-valu#d file attribute name> 1 

- ' ■■ - -i ■ r 

f-<pointer-valued file attribute name> — •- ■ ! 

■ I ■ I 

I -< translate-^tabl^-valued file attribute name>-r 
>- ) ----------------— — — I 



See also. 

<arithmetlc-valued file attribute name> .. . ......... 86 

<Boolean-valued file attribute 'name> . . . ... . 86 

<mnemonic file attribute value> . . . . . . . . ........ 86 

<ppinter-valued file attribute name^r . . . 86 

<translate-^table-^valued file attribute -na^ . . ..... . . 86 



If a mnemonic file attribute value ; is specified, the VALUE function 
returns the integer value that corresponds to that mnemonic file 
attribute value- If a file attribute name is specified, the VALUE 
function returns the attribute numt?er that corresponds to that attribute 
name. For more information on file attribute names and mnemonic file 
attribute values, refer to the "I/O Subsystem Reference Manual." 
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Examples 

F.KIND := VALUE(DISK) 

F . INTMODE : = VALUE( EBCDIC ) 

<wait statement > 



Depend ing on the form used, the WAIT statement returns no value, a 
Boolean value, or an integer value. For more information, refer to 
"WAIT Statement." 



<waitandreset statement > 



The WAITANDRESET statement returns an integer value. For more 
information, refer to "WAITANDRESET Statement." 



< write statement > 



The WRITE statement returns a Boolean value. For more information, 
refer to "WRITE Statement." 
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2 QQispti.iw moQmi^ 

This chapter presents information outside of the ALGOL language. This 
information is necessary to compile and run an ALGOL program. The 
chapter describes the files used by the ALGOL compiler when it compiles 
a program, the format of a source record, and compiler control options. 

liJL FILES USED BY THE COMPILER 

When the ALGOL compiler compiles a proigram, it requires, at minimum, one 
input file that contains the source code to be compiled. If the compile 
is successful, the compiler produces, at minimum, one output file that 
contains executable object code. 



Through the use of compiler control options, the compiler can be 
directed to Use additional input files and to produce additional output 
files. Among the optional input files that can be used are files 
containing source code that is to: be merged or inserted into the 
required source code file, and files ciontiaining information needed to 
perform separate compilation and binding. Among the optional output 
files that can be produced are a priniter listing of the program, a 
cross-reference file, an updated source file, an error message file, and 
a file containing information needed for future separate compilation. 



Table 7-1 lists the logical input and output files used by the ALGOL 
compiler. Each file is listed wirth values for the INTNAME, KIND, 
INTMODE, MAXRECSIZE. BLOCKSIZE, and FILETYPE attributes. Some or all of 
the attributes for these files can be changed, using compiler file 
equation, when the compiler is initiated. (For more information, refer 
to the "I/O Subsystem Reference Manual" and the "Work Flow Language 
(WFL) Reference Manual" for detailed information about file attributes 
and compiler file equation, reispectively . ) 
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Table 7-1. Compiler Files 



Compiler Input Files 



OPTIQNAL 

mxsim • 



Description 


ININAME 


iTtltJAtlCn 


KIND 


IKIMCSDE 


rnXKQCSIZE 


BLOCKS I2IE 




mnvsa input pile 


CARD 


WFL 


3UEADER 


EBCDIC 


Taken from. 
physical fUe 


Tak^ from 
ph/^cal file 


8 


CAHDE 


DISK 


OPTIONAL SBOONDftRy 
INPUT FILE 


TAPE 


WFL artd 

CANDE 


DISK 


EBCDIC 


Taken from 

physical file 


Taken from 

physical file 


8 


QPTIQNAL SOURCE FILES 
INPUT BY $ INCLUDE 
COMPILER CONTEOL 
OPTIONS 


(INCLUDBa 
files) 


WFL and 
CANDE 


TOSK. 


EBCDIC 


Taken from 
physical fUe 


Taken from 
physical file 


8 


OPTIONAL OBJECT FILE 
INPUT 


WSI 


WFL and 


DISK 


SINGLE 


30 words 


270 words 


8 


OPTIONAL INFO FILE 


INFO 


WFL and 
CANDE 


DISK 


SINGLE 


l^en from 
physical file 


Tak^ from 
phy^cal fUe 


0 


Compiler Output Files 


OIBJECT O013E FILE 


OODE 


WFL and 
CAKDE 


DISK 


SINGLE 


so words 


270 words 




OiPTIQNAL UPEUVTED 
SSMBOLIC FILE 


NBWTAPE 


WFL and 
CANDE 


DISK 


EBCDIC 


15 words 


420 words 




OPTIONAL 

LINE PRINTER LISTINI3 


LINE 


WFL and 
CANDE 


PRINTER 


EBCDIC 


22 words 


22 wards 




QPTIQNAL 

ERROR MESSACS FILE 


ERRQRFILE 


WFL 


ERINTEK 


EBCXflCC 


12 words 


12 words 




CANDE 


XEMOIE 


OPTIONAL 

CROSS R£FERBi::S FILE 


XREFTILE 


WFL and 
CANDE 


DISK 


EBCDIC 


510 words 


510 words 


0 


OPTIOMU, INFO FILE 


INFO 


WFL and 
CANDE 


DISK 


SWCS£ 


256 words 


2560 words 


0 
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INPUT FILES 



The input files used by the compiler consist of the following: 

- CARD, which is the required source code file 

- T^APE, which is a source code file that can be merged with CARD 

INCLUDE files, which are source code files that can be inserted 
into CARD or TAPE 

- HOST, which contains information used for separate compilation 
and binding 

INFO, which contains information used for separate compilation 



The EXTMODE attribute (the character type of the physical file) of these 
input files can be EBCDIC, ASCII, or BCL. The MAXRECSIZE attribute of 
these input files must be large enough to accommodate at least 72 
characters. Because the values of the MAXRECSIZE and BLOCKSIZE 
attributes for these files are taken from the physical file (when 
FILETYPE = 8), these two attributes do not require explicit assignment. 



CARD File 



The CARD file supplies the primary source input to the compiler and must 
be' present for each compilation. If the compiler is initiated from the 
Work Flow Language (WFL) and compiler file equation Is not applied to 
the CARD file, the file is assumed to be a card reader file. If the 
compiler is initiated through CANDE and compiler file equation is not 
applied to the CARD file, the file is assumed to be a disk file. 



TAPE File 



The TAPE, file supplies secondary source input to the compiler. Its 
presence is optional. If compiler file equation is not applied to the 
TAPE file, the file is assumed to be a disk file regardless of whether 
the compiler is initiated from WFL or CANDE. 



When this file is present and the HERGE option is TRUE, records from the 
TAPE file are merged with those of the CARD file on the basis of 
sequence numbers. If a record from the CARD file and a record from the 
TAPE file have the same sequence number, the record from the CARD file 
is compiled and the TAPE record is ignored. For, more information on the 
MERGE option, see "<nierge option>" in this chapter. 
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INCLUDE Files 



INCLUDE files provide source input to the compiler in addition to that 
supplied by the CARD and TAPE files. An INCLUDE file is used only if an 
INCLUDE compiler control option appears in the source input being 
compiled. For more information on the INCLUDE option, see "< include 
option>" in this chapter. 



HOST File 



The HOST file provides the compiler with information that allows it to- 
separately compile and bind to a host program only procedures that are 
being changed. This process is called a "sepcomp" ''and the HOST file is 
used if the SEPCOMP compiler control option is TRUE. The HOST file is a 
special object code file, created by a previous compile when the 
MAKEHOST compiler control option was TRUE. The HOST file contains 
information about the outer block environment of the program and the 
environments of selected procedures. For more information on the 
SEPCOMP and MAKEHOST options, see "<sepcomp opt ion >" and "<mak.ehost 
option>," respectively, in this chapter. 



INFO File 



The INFO file contains the contents of variables and tables used in the 
compiler, saved from a previous compile. This file is used for separate 
compilation of procedures. It is created by the DUMPINFO compiler 
control option and is used as an input file by the LOADINFO compiler 
control option. For more information on the DUMPINFO and LOADINFO 
options, see '•<dumpinfo option>" and 'Vioadinfo option>," respectively, 
in this chapter. 



See also 

<dumpinfo option > 611 

<include option> 615 

<loadinfo option) 623 

<mak.ehost option> 625 

<merge option > 628 

<sepcomp option> 635 
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OUTPUT FILES 

The output files produced by the compiler consist of the following: 

- CODE, which is the object code file 

- NEWTAPE, which is the updated source code file 

- LINE, which is the printer listing of the program 

- ERRORFILE, Which is the error message file 

- XREFFILE, which contains cross-reference information 

INFO, which contains information used for separate compilation 



CODE File 



The CODE file is produced unconditionally and contains the executable 
object code produced by the compiler. This file i£ either stored 
permanently, executed and then discarded, or discarded, depending on the 
specifications in the WFL or CANDE "COMPILE" statement that initiated 
the compiler, and on whether or not syntax errors occurred during the 
compilation. For more information on the WFL and CANDE "COMPILE" 
statements, refer to the "Work. Flow Language (WFL) Reference Manual" and 
the "CANDE Reference Manual." 



NEWTAPE File 



The NEWTAPE file is produced only if the NEW compiler control option is 
TRUE. The NEWTAPE file is an updated source file that consists of the 
source input from the CARD file, the TAPE file, and (if the INCLNEW 
compiler control option is TRUE) the included files that was actually 
compiled. If compiler file equation is not applied to the NEWTAPE file, 
it is a disk file. For more information on the NEW and INCLNEW options, 
see "<new option>" and "<inclnew option>," respectively, in this 
chapter. 



LINE File 



The LINE file is produced if either of the compiler control options LIST 
or TIME is TRUE. If compiler file equation is not applied to the LINE 
file, it is a printer file. 
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The contents and format of the LINE file depend on the values of the 
following compiler control options: 

CODE PAGE 

FORMAT SEGS 

LISTDELETED SINGLE 

LISTINCL STACK 

LISTOMITTED TIME 
LISTP 



The LINE file always contains at least the following information: 

1. The title of the source file CARD used as input to the compiler 

2. Code segmentation information 

3. Error messages and error count, if syntax errors occur 

4. Summary information about the compile, such as the number of 
lines read and the size of the object code file 



For more information about the compiler control options that affect the 
LINE file, see "Option Descriptions" in this chapter. 



ERRORFILE File 



The ERRORFILE file is produced only if the ERRLIST compiler control 
option is TRUE. If compiler file equation is not applied to the 
ERRORFILE file, it is a printer file if the compile was initiated 
through WFL and a remote file if the compile was initiated through 
CANDE. If no syntax errors occur during compilation, no ERRORFILE file 
is produced, regardless of the value of the ERRLIST option. For more 
information on the ERRLIST option, see "<errlist option>" in this 
chapter. 



For every syntax error that occurs during compilation, two records are 
written to the ERRORFILE file. The first record is a copy of the source 
record that contains the error. The second record contains the sequence 
number of that source record (if the source record was sequenced) and 
the error message. 
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XREFFILE File 



When either of the compiler control options XREF or XREFFILES is TRUE, 
the compiler saves raw cross-reference information in the XREFFILE file. 
The contents of the file are affected by the compiler control options 
XDECS and XREFS. Before this information can be printed or read by 
•SYSTEM/INTERACTIVEXREF or the Editor, it must. be analyzed by 
SYSTEM/XREFANALYZER. The XREFFILE file is given the file name 
"XREF/< code file name>", where xcode file name > is the file name of the 
object code file being produced. For more information about the 
cross-reference options, see "Option Descriptions" in this chapter. 



The INFO file contains the contents of variables and tables used in the 
compiler. It is intended for use in separate compilations of 
procedures. This file is created by the DUMPINFO compiler control 
option, and It is used as an input file by the LOADINFO compiler control 
option. 



INFO File 



See also 



<errlist opt ion >. . 
<inclnew option>. . 
<new option> . . . . 
Option Descriptions 



612 
614 
629 
603 



594 



ALGOL REFERENCE MANUAL 



7.2 SOURCE RECORD FORMAT 

The records of a source code file read by the ALGOL compiler can be any 
size greater than or equal to 72 characters. 



Assume that the character positions (called columns) of a source record 
are numbered from 1 to n, where n is the size of the record in 
characters. The compiler divides each source record as follows: ^ 

1. The data in columns 1 through 72 is assumed to be ALGOL source 
"lahguage as defined in this manual. Any characters that appear 

beyond column 72 are not compiled as source language 
constructs. 

2. Characters in columns 73 through 80 of a record are treated as 
a sequence number, which is optional. 

3. Any information beyond column 80 is ignored. 



The column in which an ALGOL construct begins is not significant, unless 
the source record is a compiler control record or the construct 
continues beyond column 72. (For more information on compiler control 
records, refer to "Compiler Control Records" in this chapter .) The data 
in columns 1 through 72 is treated as a continuous stream from record to 
record. In other words, no delimiters are implied at the end of a 
record, and string literals, identifiers, and all other valid ALGOL 
constructs can be continued from column 72 of one record to column 1 of 
the succeeding record. 



Compiling Programs 
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7.3 COMPILER COHTROL OPTIOKS 

Compiler control options provide tihe programmer with the means to 
control many aspects of the coiwpilation of an ALGOL program. These 
options can instruct the compiler to use optional input files or to 
produce optional output files. In addition to other things, the options 
can do all of the following: 

- Affect the contents of the printer listing 

- Designate the target computer for which code is to be produced 

- Set the default character type 

Cause the compiler to perform separate compilation 

Invoke the Binder 

Invoke debugging features 

- Exclude source records 

- Set a limit on the number of syntax errors the program can get 

- Resequence source records 

- Check that sequence numbers are in order 
Control code file segmentation 



- Flag BCL constructs 
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COMPILER CONTROL RECORDS 

Compiler control options are included in an ALGOL program by using 
special source records called compiler control records. 

Syntax 

< compiler control record > 

— $ — — ■ > 



l< 



-<dumpinfo option>- 



- — <option phrase>~ 



-<loadinfo option >- 



-<include option> — 



-< binder command > 



>-<escape remark.> 



< opt ion phrase > 



< 



- SET 



-<Boolean option> 1 



- POP 



-<immediate option>- 



- RESET - 



-< value option > 



l< 



- SET < Boolean option> 



— <option expression>- 



Compiling Programs 



<Boolean option > 



A <Boolean option> can be any of the following: 



<$ option > 
<ASCII option> 
<autobind option > 
<BCL option> 
<brealcpoint option> 
<B7700 option> 
< check option> 
<code option> 
<errlist option> 
< format opt ion > 
<inclnew option> 
<inclseq option> 
<installation option> 
<intrinsics option> 
<library option> 
<lineinfo opt ion > 
<list option> 
< list deleted option> 
<listincl optlon> 
<listomitted option> 
<listp option> 
<mak.ehost option> 
<MCP opt ion > 
<merge option> 
<new option> 
<newseqerr opt ion > 



<noBCL option > 
<nobindinfo option> 
<nostacfcarrays option > 
<noxreflist option) 
<oidresize option > 
<omit opt ion > 
<optimize opt ion > 
<segs option> 
<sepcorap option > 
<seq option > 
<seqerr option> 
<single option> 
< stack option > 
<statistics option> 
<TADS option> 
<time option> 
<user opt ion > 
<void option > 
<voidt option) 
<Warnsupr option) 
<writeafter option) 
<xdeGS option) 
<xref option) 
<xref files option) 
<xref s option) 



< immediate option) 

<beginsegment option) — 

! . I 
|-<breakhost option) ! 



1 -<endsegment option) I 

1 ^ I 
|-<go to option) ^1 

i I 
|-<page option) I 
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< value opt ion > 

<level option> : 

I 

-<liinit option> 1 

-<segdescabove option > 1 

-< sequence base option > ■ 

-<sequence increment option>-| 

i 

-<sharing option> : ! 

I 
I 

-<target option> 1 

i 

-<version option> 1 



<option expression > 

~ AND 

I 1 

|<- OR --I 

I I 

I <- IMP -i 

I I 

|<- EQV -I 

<option priinary> 



<option primary> 



<user option>- 



I 1 



- NOT -I i- TRUE - 

I i 

- " 1 !- FALSE 



- ( — <option expressiQn> — ) 
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< binder command > 

<bind option> • — - — I 

|-'<binder opt ion > I 

|-<external option> 1 

|-<hcst option> — ■ — • I 

I -< initialize option>-r 

|~<purge option > I 

|-<stop option>— — 1 

|-<use option> ! 



Semantics 



Compiler control records are submitted to the ALGOL compiler as part of 
the source input and are distinguished from other constructs by the 
dollar sign ($) that must begin every compiler control record. 

In a compiler control record, the column in which the initial $ occurs 
is significant. Compiler control records with the initial $ in column 1 
affect only the current compilation and are not saved in the NEWTAPE 
file, if any. Compiler control records with the initial $ in column 2 
are considered permanent compiler control records and are saved in the 
NEWTAPE file, if any. Compiler control records with the initial $ in 
columns 3 through 72, inclusive, are considered both permanent and 
conditional, in that they are saved in the NEWTAPE file, if any, and 
they are ignored when the OMIT option is TRUE. 



A compiler control record can contain the following: 

1. Boolean options 

2. Value options 

3. Immediate options 

4. Special options 



5. 



Binder commands 
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A Boolean option is one that is either enabled (TRUE) or disabled 
(FALSE). When enabled, it causes the compiler to apply an associated 
function to all subsequent processing until the option is disabled. 



A value option causes the compiler to store a value associated with a 
given function. 



An immediate option causes the compiler to perform immediately a 
function that is not applied to subsequent processing. 



The special options (the DUMPINFO option, the LOADINFO option, and the 
INCLUDE option), like the immediate options, cause the compiler to 
perform immediately a function that is not applied to subsequent 
processing. However. they are not grouped with the immediate options 
because of special syntactic requirements. 



Binder commands are passed directly to the Binder program. For more 
information on Binder statements and control options, refer to the 
"Binder Reference Manual." 



The keywords SET, RESET, and POP affect the value of Boolean options. 
Each Boolean option has an associated "stack" in which the current value 
and up to 46 previous values of the option are saved. The management of 
this stack of values is described below: 

1. If the first keyword to the left of a Boolean option in a 
compiler control record is SET or RESET, the current value of 
the option is pushed onto the stack and the option is assigned 
a value of TRUE or FALSE, respectively. In other words, the 
option is assigned a new value, and the previous value is saved 
in the stack. 

2. If the first keyword to the left of a Boolean option in a 
compiler control record is POP, the current value of the option 
is discarded and the previous value is removed from the top of 
the stack and assigned to the option. 

3. If a Boolean option is not preceded in a compiler control 
record by any keyword, then the following actions occur: 

a. All resettable standard Boolean options are assigned a 
value of FALSE and all previous values in their stacks are 
discarded. 

b. The Boolean options appearing in the compiler control 
record with no preceding keyword are assigned a value of 
TRUE. 



Compiling Programs 
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The following is a list of the resettable standard Boolean options that 
are affected when a Boolean option appears in a compiler control record 
without a preceding keyword: 



A O T T 


M/^ViDT?TT TOT 


AUIUBIND \lt bCiPCOIlP IS rALibr.; 


Uni i 








c vn c 




bt(^' 


r UKJIA 1 


b£i^C>KK 


1 JNL-ljJSlliW 




INCLSEQ 


STATISTICS 


INSTALLATION 


TIME 


INTRINSICS 


VOID 


LIST 


VOIDT 


LISTDELETED 


WARNSUPR 


LISTINCL 


WRITEAFTER 


LIST? 


XREF 


MAKEHOST (if the first syntactic 


XREFFILES 


item has not been seen) 


XREFS 


NEW 


$ 


NEWSEQERR 





A compiler control record that consists of only an initial $ (a $ 
followed by all blanks) has no effect unless it is in the CARD file, the 
MERGE option is TRUE:, and a record is present in the secondary input 
file TAPE that has the same sequence number as this compiler control 
record. When these three conditions are met, then that TAPE record is 
ignored. 



In an <option expression>, the Boolean operators have the same 
precedence as they do in Boolean expressions; that is, NOT and " are 
equivalent and have the highest precedence, followed by AND, OR, IMF. 
and EQV, in that order. The <option primary) represents the current 
value of the Boolean option whose value is being assigned. For example, 
the compiler control record 



$ SET OMIT = * OR DEBUGCODE 



causes records from both the CARD and TAPE files to be ignored if either 
the OMIT option is TRUE or the user option DEBUGCODE is TRUE. 
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Examples 



$ SET LIST MERGE NEW RESET SINGLE 



This compiler control record assigns a value of TRUE to the LIST 
option, MERGE option, and NEW option, and assigns a value of FALSE 
to the SINGLE option. The previous value of each of these options 
is saved in the corresponding stack. 



$ PAGE 



This compiler control record invok.es the immediate option PAGE, 
causing the compiler to skip the printer listing to the top of the 
next page (if the LIST option is TRUE). Because the PAGE option is 
not a Boolean option, the action described above for Boolean options 
not preceded by a keyword does not occur. 



$ SET LISTP 135000 POP LIST 



This compiler control record assigns a value of TRUE to the LISTP 
option, assigns the value 135000 to the sequence base option, and 
returns the LIST option to its most recent previous value. 



$ LISTP POP MYOPTION 

This compiler control record assigns FALSE to all resettable 
standard Boolean options and discards all previous values in their 
stacks, assigns the value TRUE to the LISTP option, and returns the 
USER option MYOPTION to its most recent previous value. The stack 
for MYOPTION is unaffected by the purge of the stacks for the 
standard resettable Boolean options, because it is not a standard 
option. 
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The rest of this chapter describes the individual compiler control 
options. 

< ASCI I option> 



— ASCII — I 
(Type: Boolean, Default value: FALSE) 



When TRUE, the ASCII option sets the default character type to ASCII. 
For more information, refer to "Default Character Type" in the appendix 
"Data Representation." 



If the BCL option is TRUE and the ASCII option is assigned the value 
TRUE, a syntax error Is given. 



See also 

Default Character Type. .... . . ....... 817 



<autoblnd opt ion > 



~ AUTOBIND ~1 



(Type: Boolean, Default value: FALSE) 

If TRUE, the AUTOBIND option causes the processes of compilation and 
program binding to be combined into one job. During compilation, the 
compiler produces a set of instructions to be passed to the Binder 
program. In most cases, these Binder instructions are sufficient. If 
additional Binder instructions are required, the ALGOL <binder command> 
syntax can be used. 
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The AUTOBIND option can be assigned a value at any time during 
compilation. However, for the following reasons, it shbuld be assigned 
a value only once, at the beginning of compilation: 

1. The value of the AUTOBIND option is significant only at the end 
of compilation. For example, if four procedures are being 
compiled, the first three with the AUTOBIND option FALSE and 
the last with the AUTOBIND option TRUE, the Binder attempts to 
bind all four procedures to the specified host. 

2. When the AUTOBIND option is FALSE, compile-and-go on a separate 
procedure is not executed. If the AUTOBIND option is TRUE 
throughout compilation, execution of the resulting program 
takes place after binding. 



In ALGOL, an outer block, or a separate procedure compiled at lexical 
(lex) level two can serve as a "host" for binding. Separate ALGOL 
procedures compiled at lex level three (the default level) or higher can 
be bound into a host. Any number of separate procedures , but only one 
host, can be compiled in one job. The host must be the last program 
unit compiled. If an appropriate host file is compiled with the 
AUTOBIND option equal to TRUE, it is assumed to be the host for binding. 
(This assumption cannot be overridden by file equation or by use of the 
HOST option. ) If no eligible host is being compiled, a host must be 
specified, either by file equation of the compiler file HOST or by use 
of the HOST option. 



The object code file of any procedure corapilea at lex level three or 
higher with the AUTOBIND option equal to TRUE is marked as 
nonexecutable. To be executed, the procedure must be bound into a host 
file by the Binder program or invoked by a PROCESS or CALL statement. 



Object code files of any procedures compiled at lex level three or 
higher are purged after being bound into a host by the AUTOBIND option. 
To be retained, such a code file must be referenced specifically in 
either a BIND option or an EXTERNAL option. 



When the batch facility is used, the AUTOBIND option cannot be assigned 
a vr.lue. If the TADS option is TRUE when the AUTOBIND option is 
assigned the value TRUE, then the AUTOBIND option is left equal to FALSE 
and a warning message is given. 
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<BCL option> 



— BCL — I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the BCL option sets the default character type to BCL. For 
more information, refer to "Default Character Type" in the appendix 
"Data Representation,." 



If the ASCII option is TRUE when the BCL option is assigned the value 
TRUE, a syntax error is given. 



See also 

Default Character Type. 817 



NOTE 

The BCL data type is not supported on all 
A Series and B 5000/B 6000/B 7000 Series 
systems. The appearance of a BCL 
construct that may cause the creation of 
a BCL descriptor, such as the BCL option, 
will cause the program to get a 
compile-time warning message. 



<beginsegment opt ion > 

— BEGINSEGMENT — | 



(Type: immediate) 



The BEGINSEGMENT option and the ENDSEGMENT option allow the programmer 
to control code file segmentation,. Procedures encountered between a 
BEGINSEGMENT option and an ENDSEGMENT option are placed in the same code 
segment, which is called a "user ; segment" because it is user-controlled 
instead of compiler-controlled. 
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The BEGINSEGMENT option must appear before the declaration of the first 
procedure to be included in the user segment. The ENDSEGMENT option 
must appear after the last source record of the last procedure to be 
included in the user segment. 



A procedure cannot be split across user segments. The first procedure 
in the user segment must be one for which the compiler would normally 
generate a segment; that is, it must have local declarations. External 
procedures cannot be declared in a user segment. 



Declarations of global items other than procedures within a user segment 
can result in those items not being initialized. This could cause the 
program to get a fault at run time. Declarations of global items other 
than procedures should be placed outside user segments. 



User segments can be nested; that is, a BEGINSEGMENT option can appear 
in a user segment. In this case, an ENDSEGMENT option applies to the 
user segment currently being compiled. 



If a BEGINSEGMENT option appears before the beginning of a separately 
compiled procedure, an ENDSEGMENT option is assumed at the end of the 
procedure, even if none appears. The driver procedure created for 
procedures compiled at lexical level three is always in a different code 
segment. 



The segment information in the printer listing is modified for user 
segments. User segments are numbered consecutively in a program, 
beginning with 1; that is, the first user segment is USERSEGMENTl , the 
second user segment is USERSEGMENT2 , and so forth. The code segment 
number of each user segment is printed at its beginning; the length of 
each user segment is printed at its end. Procedures or blocks whose 
segmentation is overridden by user segmentation are printed out as being 
"in" that user segment. 



Forward procedure declarations are not affected by user segmentation. 



If more than one BEGINSEGMENT option appears before a procedure, the 

warning message "EXTRA BEGINSEGMENT IGNORED" is printed. If an 

ENDSEGMENT option appears and there has been no BEGINSEGMENT option., the 
warning message "EXTRA ENDSEGMENT IGNORED" is printed. 



The BEGINSEGMENT option and ENDSEGMENT option allow the programmer to 
reduce presence-bit overhead by grouping frequently called procedures 
and infrequently called procedures in separate segments. 



607 

Compiling Programs 

<bind option> 



— BIND — <text>-—| 



See also 

<text > 61 



(Type: Binder command) 

During autobinding, the BIND, option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder BIND statement and are described in the 
•'Binder Reference Manual." 



When the batch facility is used, the BIND option cannot be used. 



< binder opt ion > 



— BINDER — <text>— I 



See also 

<text>. . 61 



(Type: Binder command) 



During autobinding, the <text> in the BINDER option is passed directly 
to the Binder program for analysis. The format and function of <text> 
are the same as those of the Binder control options and are described in 
the "Binder Reference Manual." 
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<breakhost option> 



— BREAKHOST 

I I 
I- ( — <input file> — ) -| 



<input file> 

— <file identifier> — I 



See also 

<file identifier> 85 



(Type: immediate) 



To create the necessary environment for interactive debugging with the 
breakpoint intrinsic, the BREAKHOST option must appear in the outer 
block of any program that uses the BREAKPOINT option or the BREAKPOINT 
statement. This option must appear after the first "BEGIN" of a program 
but before the first statement of the outer block.. 



A part of the environment created by the BREAKHOST option is a remote 
file. If a program to be debugged has a remote input file, the name of 
that file must be specified as the < input file> to allow the breakpoint 
intrinsic to use that remote file, because only one remote input file 
can be open for each station. 



Another part of the environment created when the BREAKHOST option is 

TRUE is a 32 , 768-element real array. If a program that uses the 
BREAKHOST option is run with its task attribute OPTION equal to LONG, 
the run-time error 

DIMENSION SIZE ERROR 1=32768 

is given if the overlay row size of the system cannot accommodate an 
array of that size. 



The BREAKHOST option should not be used in a library program. 



For more information about the breakpoint feature, see "BREAKPOINT 
Statement" and the description of the BREAKPOINT option is this section. 
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NOTE 

The BREAKHOST option, the BREAKPOINT 
option., and the BREAKPOINT statement are 
being deimplemented on the Mark 3.7 
release. For a debugging feature, refer 
to the TADS option in this section. 



<breafcpoint option > 



-- BREAKPOINT — j 



(Type: Boolean, Default value: FALSE:) 



While the BREAKPOINT option is TRUE, the code emitted for each ALGOL 
statement is followed by a call on the breakpoint intrinsic. The 
execution of the program stops (breaks:) after each statement in this 
range (and at any explicit call of the breakpoint intrinsic) to allow 
debugging through the use of breakpoint commands. 



For more information about the breaik,point feature, see "BREAKPOINT 
Statement" and the description of the BREAKHOST option in this section. 



NOTE 

The BREAKHOST option, the BREAKPOINT 
option, and the BREAKPOINT statement are 
being deimplemented on the Mark 3.7 
release. For a debugging feature, refer 
to the TADS option., 



<B7700 option > 



— B770C ~| 



(Type: Boolean, Default value: TRUE) 



When TRUE, the B7700 option causes optimized code to be generated for 
the B 7000 Series systems. The B7700 option cannot be assigned a value 
if the TARGET option has been used or if the computer on which the 
program is run Is an A Series system. 
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NOTE 

The B7700 option will be de implemented on 
the Mark. 3.7 release. For information on 
code optimization for a particular 
computer, refer to the TARGET option in 
this section. 



< check opt ion > 



— CHECK ~| 



(Type: Boolean, Default value: FALSE) 



When TRUE, the CHECK option causes an error to be given if the sequence 
number on a record of the TAPE or NEWTAPE file is not strictly greater 
than the sequence number of the preceding record. If a sequence error 
occurs in the TAPE file, the word "SEQERR" followed by the sequence 
number of the previous source record is printed at the right side of the 
source record on the printer listing. If a sequence error occurs in the 
NEWTAPE file, the message "NEWTAPE SEQ ERROR" followed by the sequence 
number of the previous source record is printed on the listing, and the 
message "NEWTAPE SEQ ERR" is displayed on the Operator Display Terminal 
(ODT). In the ERRORFILE, the sequence number of the record that caused 
the sequence error and the sequence number of the previous source record 
appear on the line following the source record. 



If the NEW option is FALSE and resequencing is occurring, the old 
sequence number is the sequence number that is chiecked. 



<code option > 



~ CODE —I 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CODE option are TRUE, the printer 
listing includes the compiler-generated object code. If the LIST option 
is TRUE but the CODE option is FALSE, the printer listing does not 
include the object code. The value of the CODE option is ignored if the 
LIST option is FALSE. 
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<du]Dpinfo option> 

~ DUMPINFO — — — — — -I 

■ I I : 

|-<.f ile specif ication:>- I 

<file specif ication> 

■■ <titie>— ^— I 

I I 
|-<lnternal file name>-| 

• .1 
j-<name and title> — | 

<title> 

A quoted string containing a file title* 

< internal file name> 
. —< identifier > — I 

<name and tltle> 

— < internal file name> — = — <titlie> — I 

(Type: special) 

The DUMPINFO option is described with the LOADINFO option in this 
section. 

<endsegiiient option> 

~ ENDSEGMENT —1 
(Type: immediate) 

The ENDSEGMENT option is described with the BEGINSEGMENT option in this 
section . 
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<errlist option> 



~ ERRLIST ~| 



(Type: Boolean, Default value; TRUE for CANDE-originated compiles, 
FALSE Otherwise) 



When TRUE, the ERRLIST option causes syntax error information to be 
written to the ERRORFILE file. When a syntax error is detected in the 
source input, the source record that contains the error, an error 
message, and the syntactical item where the error occurred are written 
on two lines in the ERRORFILE file. This option is provided primarily 
for use when the compiler is invoked at a terminal by CANDE, but it can 
be used regardless of the manner in which the compiler is invoked. When 
the compiler is invoked from CANDE, the default value of the ERRLIST 
option is TRUE, and the ERRORFILE file is automatically equated to the 
remote device from which the compiler was invoked. 



< external option> 



— EXTERNAL — <text> — | 



See also 

<text> 61 



(Type: Binder command) 



During autobinding, the EXTERNAL option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder EXTERNAL statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the EXTERNAL option cannot be used. 
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<format option> 



— FORMAT — I 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the FORMAT option are TRUE, then to aid 
readability of the printer listing, several blanlc lines are inserted 
after each procedure. If the LIST option is TRUE but the FORMAT option 
is FALSE, no blank, lines are iijiserted after procedures. If the LIST 
option is FALSE, the value of the FORMAT option is. ignored. 



<go to option > 



— GO -< sequence number > — | 

1. ! 
I ~ TO - ! 



< sequence number > 

!<-- 1 

i I 
/8\-<digit>- 1 

(Type: immediate) 



The GO TO option is used to reposition the secondary source input file 
TAPE. This option is intended for use with disk files and does not work 
on tape files. 



The < sequence number:- construct specifies a sequence number appearing on 
a record in the TAPE file. The QO TO option causes the TAPE file to be 
repositioned so that the next record from this file used by the compiler 
is the first record with a sequence number greater than or equal to the 
specified sequence number. The T^PE file must be properly sequenced in 
ascending order; that is, the sequence number on each record in the file 
must be strictly greater than the sequence number on the preceding 
record. The specified sequence number can be greater than or less than 
the sequence number of the record on which the option appears. 
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This option cannot appear within a DEFINE declaration or in included 
source input, and cannot be used when the batch facility is used. 



<host option > 

— HOST — <text >— I 



See also 

<text> 61 



(Type: Binder command) 



During autobinding, the HOST option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder HOST statement and are described in the 
"Binder Reference Manual." 



When the batch facility if used, the HOST option cannot be used, 

<inclnew option > 

— INCLNEW ~| 
(Type: Boolean, Default value: FALSE) 



If both the NEW option and the INCLNEW option are TRUE, included source 
input is written to the NEWTAPE file. If the NEW option is TRUE but the 
INCLNEW option is FALSE, included source input is not written to the 
NEWTAPE file. If the NEW option is FALSE, the value of the INCLNEW 
option is ignored. 



When the batch facility is used, the INCLNEW option cannot be assigned a 
value. 
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<inclseq opt ion > 



.— INCLSEQ ~ I 
(Type: Boolean, Default value: FALSE) 

If both the SEQ option and the INCLSEQ option are TRUE, included source 
input is resequenced. If the SEQ option is TRUE but the INCLSEQ option 
is FALSE, included source input is not resequenced. If the SEQ option 
is FALSE, the value of the INCLSEQ option is ignored. 



When the batch facility is used, the INCLSEQ option cannot be assigned a 
value. 



< include option > 

— INCLUDE — • > 



|-<file specif ication>- I |-<start specif ication>- I 



> 



|-<stop specif ication>- I 



<start specif ication > 



* 



|-<sequence number >-| 



<stop specif ication > 



<sequence number > — I 



See also 



<file specif ication > 
< sequence number > . 
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(Type: special) 
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The INCLUDE option causes the compiler to accept source language input 
from files other than the CARD and TAPE files. The included records are 
compiled in place of the record on which the INCLUDE option appears. 
The included records can themselves contain INCLUDE options; in this 
way, included source input can be nested up to five levels deep. 



The <file specif ication > construct specifies the file from which source 
input is to be included. If the <title> form is used, the quoted string 
specifies the TITLE attribute of the file. The < internal file name> 
form provides an internal file name that can be associated with an 
actual file through file equation. The <name and title> form provides 
both an internal file name available for file equation and a title to be 
used if the internal file name is not file-equated. 



If the <file specification) construct is not used, the same file as that 
specified in the previous INCLUDE option at the same level of nesting is 
used. Therefore, the first INCLUDE option at any of the five possible 
levels of nesting must contain the <file specification) construct. 



The <start specification) construct specifies the record of the included 
file at which inclusion is to start. If the <sequence number) form is 
specified, inclusion begins with the first record with a sequence number 
greater than or equal to the specified sequence number. If the 
asterisk. (*) form of <start specification) is used, inclusion begins at 
the point where it left off the last time inclusion took place from this 
file at the same level of nesting. If the <start specification) 
construct is not used, inclusion begins with the first record of the 
file. 



The <stop specification) construct specifies the record after which 
inclusion is to stop. If the <stop specification) construct is not 
used, inclusion ends after the last record of the file. 



Source files suitable for use by the INCLUDE option can be produced by 
the compiler by using the NEW option. 



Files declared globally in Work Flow Language (WFL) jobs should 'not be 
used as INCLUDE files. 



The INCLUDE option must be the last option appearing on a compiler 
control record, and it cannot be used when the programmer is using the 
batch facility. 
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Examples 



$ INCLUDE FILE8 00001000 - 09000000 

This example instructs the compiler to accept as input all records 
from the file indicated by the internal name FILES, with a sequence 
number greater than or equal to 00001000 and less than or equal to 
09000000. 



$ INCLUDE * 

This example instructs the compiler to accept as input a portion of 
the file accessed by the last INCLUDE option at this level of 
nesting. The records to be included are all records that follow the 
last record included by that preceding INCLUDE option. If, for 
example, the preceding INCLUDE option was the one in the first 
example above, the file that is accessed is FILES, and the records 
that are included are all the records with a sequence number greater 
than 09000000. 



$ INCLUDE "SOURCE/XYZ. - 900 

This example instructs the compiler to accept as input a portion of 
the file with the title "SOURCE/XYZ". The Included records are all 
records of the file with a sequence number less than or equal to 
00000900. 



$ INCLUDE INCL = " SYMBOL/ALGOL/ INCLUDEl . " 

This example instructs the compiler to accept as input all records 
of either the file to which the internal name "INCL" was 
file-equated or, if the INCL file was not file-equated, the file 
"SYMBOL/ALGOL/ INCLUDEl". 



< initialize opt ion > 



— INITIALIZE ~<text>— ! 



See also 
<text > 
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(Type: Binder command) 



During autobinding, the INITIALIZE option is passed directly to the 
Binder program for analysis. The format and function of this option are 
the same as those of the Binder INITIALIZE statement and are described 
in the "Binder Reference Manual." 



When the batch facility is used, the INITIALIZE option cannot be used. 



< installation opt ion > 

-- INSTALLATION 

! I 
I -<installation number list>-| 



< installation number list> 
I < 



< installation number > 

I I 
|- - — <installation number >- I 



< installation number > 

— <unsigned integer > — | 

(Type: Boolean, Default value: FALSE) 



When TRUE, the INSTALLATION option causes the compiler to recognize one 
or more groups of installation intrinsics so that they can be referenced 
in an ALGOL program. This option must be assigned a value before the 
first syntactic item in a program. Assigning a value to this option at 
any other time has no effect. 



An installation number must be an unsigned integer between 1 and 2047, 
inclusive. Each installation number in an installation number list must 
be strictly greater than the preceding installation number in that list. 
Installation numbers larger than 2047 are treated as if they were equal 
to 2047. 
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An INSTALLATION option with no installation number list is equivalent to 
one with an installation number list of 100 through 2047. 

When the batch facility is used, the INSTALLATION option cannot be 
assigned a value. 



<intrinsics option> 



— INTRINSICS —I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the INTRINSICS option causes separately compiled procedures 
to be compiled at lexical (lex) level two and allows a <global part> 
construct to appear before the procedures. These procedures can then be 
used as installation intrinsics. A <global part> is not normally 
allowed when compiling separate procedures at lex level two. 



The title of the object code file generated for a procedure when the 
INTRINSICS option is TRUE is the same as if the procedure were compiled 
at lex level three. Thus, the separate procedures being compiled can be 
bound into the intrinsics. When the Binder program is used to bind 
procedures into the intrinsics, the INTRINSICS option must be assigned 
the value TRUE before the first source statement. 

When the batch facility is used, the INTRINSICS option cannot be 
assigned a value. 



< level opt ion > 



~ LEVEL — < outer level > — ! 



< outer level > 

— <unsigned integer >~i 

(Type: value. Default value: 2 for programs, 3 for separately compiled 
procedures ) 
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The LEVEL option allows the programmer to override the lexical (lex) 
levels assigned by the compiler. This feature is needed when compiling 
separate procedures for binding to a host program. The <outer level> 
construct specifies the lex level at which compilation is to begin. 



The LEVEL option must appear before the first syntactic item in a 
program, and it cannot be used when the batch facility is used. 



< library option> 



-- LIBRARY ~| 



(Type: Boolean. Default value: TRUE for CANDE-originated compiles and 
when the SEPCOMP option is TRUE, FALSE otherwise) 



When compiling multiple separate procedures (such as intrinsics), 
assigning TRUE to the LIBRARY option improves the efficiency of the 
binding. When TRUE, this option causes all object code from this 
compilation to be put in one file, which is marked as a mult iprocedure 
code file. If the LIBRARY option is FALSE, each separate procedure 
produces its own object code file. 



The LIBRARY option must appear before the first syntactic item in a 
program, and it cannot be assigned a value when the programmer is using 
the batch facility. 



The LIBRARY option is unrelated to the library facility described in the 
chapter "Interface to the Library Facility." 



< limit option > 



— LIMIT — <error limit > — i 



<error limit > 
— <unsigned 



integer > — 
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(Type: value. Default value: 10 for CANDE-originated compiles, 150 

otherwise) 



The LIMIT option allows the programmer to specify the number of 
compiie-time errors that can occur before the compilation is terminated 
because of excessive errors. 



A limit of 0 indicates that the program is not to be terminated for 

excessive errors. If, when the LIMIT option is assigned a value, the 

number of syntax errors already equals or exceeds that value, then the 
program is immediately terminated. 



<lineinfo option> 



~ LINEINFO — I 



(Type: Boolean, Default value: TRUE for CANDE-originated compiles, 
FALSE Otherwise) 



When TRUE, the LINEINFO option causes the compiler to associate sequence 
number information with the object code. This information is then 
displayed in the event of a run-time error. A larger code file is 
generated if the LINEINFO option is TRUE than if it is FALSE. 



<list opt Ion > 



— LIST — I 



(Type: Boolean, Default value: FALSE for CANDE-originated compiles, 
TRUE otherwise) 



When TRUE, the LIST option causes source input from the CARD and TAPE 
files and other information to be printed on the compiler LINE file. 



When a value is assigned to the LIST option, the same value is assigned 
to the SEGS option. 
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<listdeleted option > 



— LISTDELETED — 



(Type: Boolean, Default value: FALSE) 



When both the LIST option and the LISTDELETED option are TRUE, the 
printer listing includes records from the secondary input file TAPE that 
are replaced, voided, or deleted during the compilation. The word 
"REPLACED" appears to the right of the source records replaced by a 
record from the primary input file, CARD; the word "VOIDT" appears if 
the record is voided from the TAPE file by the VOIDT option; and the 
word "DELETED" appears if the record is deleted by a compiler control 
record that consists of a dollar sign ($) followed by all blanks. 



If the LIST option is TRUE but the LISTDELETED option is FALSE, records 
from the TAPE file that are replaced, voided, or deleted are not written 
to the printer listing. If the LIST option is FALSE, the value of the 
LISTDELETED option is ignored. 



<listincl option> 



— LISTINCL — ! 



(Type: Boolean, Default value: FALSE) 



When both the LIST option and the LISTINCL option are TRUE, source 
records included by using the INCLUDE option are written to the printer 
listing. If the LIST option is TRUE but the LISTINCL option is FALSE, 
the included records are not written to the printer listing. If the 
LIST option is FALSE, the value of the LISTINCL option is ignored. 



When the batch facility is used, the LISTINCL option cannot be used. 



623 



Compiling, Programs 

<listomitted option> 



— LISTOMITTED— I 



(Type: Boolean, Default value: TRUE) 



When both the LIST option and the LISTOMITTED option are TRUE, source 
records omitted by the OMIT option are written to the printer listing. 
In the listing, the word "OMIT" appears next to the sequence number of 
each omitted record. If the LIST option is TRUE but the LISTOMITTED 
option is FALSE, omitted records are not written to the printer listing. 
If the LIST option is FALSE, the value of the LISTOMITTED option is 
ignored. 



<listp option> 



~ LISTP ~| 



(Type: Boolean. Default value: FALSE) 



When TRUE, the LISTP option causes records from the primary source input 
file, CARD, to be written to the printer listing. Because these records 
are also written when the LIST option Is TRUE, the LISTP option is 
effective only when the LIST option is FALSE. 



<loadinfo opt ion > 



~ LOADINFO —■ ^ 

I I 
|-<file specif ication>- I 



See also 

<file specif ication> 
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(Type: special) 



The DUMPINFO option and the LOADINFO option make it possible for the 

contents of certain simple variables and arrays of the compiler to be 
saved in a disk file and subsequently reloaded for separate compilation. 



624 

ALGOL REFERENCE MANUAL 

The <file specif ication> construct specifies the file to be created by 
the DUMPINFO option or loaded by the LOADINFO option. If the <title> 
form is used, the quoted string specifies the TITLE attribute of the 
file. The < internal file name> form provides an internal file name that 
can be associated with an actual file by file equation. The <name and 
title> form provides both an internal file name available for file 
equation and a title to be used if the internal file name is not 
file-equated. If the <file specification) construct is not useci, the' 
default INFO file or the file that is file-equated to the INFO file is 
used. 



These options are used in conjunction with separate compilation of 
procedures. Typically, all global declarations are compiled, and then 
the DUMPINFO option is used to dump information about the global 
declarations from the compiler to the file INFO. When the separate 
procedures are to be compiled, the file INFO, containing information 
about all of the global declarations, is read in by the LOADINFO option 
before the procedures are compiled. For example, consider the following 
programs: 



Program 1 
BEGIN 

<global declarations) 
$ DUMPINFO 
END. 



Program 2 

%%% LOAD THE GLOBALS 

[ 

$ LOADINFO 

<additional global declarations) 

] 

< separate PROCEDURE declarations) 



Each time a loadinfo operation is done, the old information in the 
affected variables and tables of the compiler is discarded. Thus, 
compiling different portions of the same program, even if they are in 
different environments, can be done in the same compilation. 



The loadinfo operation changes all items in th- INFO file to globals and 
all procedures already compiled to forward PROCEDURE declarations. 
Thus, an INFO file created by a DUMPINFO operation that is done 
immediately before a PROCEDURE declaration in a normal compilation is 
suitable for loading global declarations when that procedure is to be 
compiled separately. 
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When two or more items with the same identifier are declared at 
different lexical (lex) levels-, a separate compilation can access only 
the last declaration seen before the ioadinfo operation occurred. 



If the release level of the compiler that performs the dumpinfo 
operation to create an INFO file and the release level of the compiler 
that performs the Ioadinfo operation on that file are not the same, a 
syntax error is given, and the compilation is discontinued. If a 
Ioadinfo operation is attempted and the file specified as the INFO file 
is not in fact an INFO file, or the INFO file was created by a compiler 
for a different language, a syntax error is given and the compilation is 
discontinued. 

The DUMPINFO option and LOADINFO, option must be the last options 
appearing on a compiler control record, and they cannot be used when 
using the batch facility. 



<iiiak.ehos t opt ion > 



l< , —I 

I I 
— MAKEHOST — ( — -<environment >— ) — I 



< environment > 

!< OF — ^-1 

I . I 
<procedure identifier > 1 



See also 

<procedure identifier>. ...... 165 



(Type: Boolean, Default value: FALSE) 



Given only the source code and object code of a host program to be 
changed and the patches to change it, the sepcomp facility of the 
compiler can separately compile and bind to the host program only the 
procedures that are being changed. This method, which is particularly 
useful for large programs, requires that information not normally 
collected and saved during the compilation of the host program be saved. 
When TRUE, the MAKEHOST option causes this information to be saved when 
compiling a program or a procedure at lexical (lex) level two. 
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If the MAKEHOST option is TRUE, information is saved in the object code 
file of the program about the symbolic file used or created by the 
compilation, the sequence ranges of all procedures declared in the outer 
block, of the program, and the global declarations. The saving of the 
outer block environment enables lex-level-three procedures to be 
compiled separately within this environment. 



The information saved about the items declared in an environment 
describes all of the items in that environment. There is no information 
about the relative order of the declarations and therefore which items 
are visible from which procedures. Thus, a sepcomp of a patch is not 
necessarily equivalent to a full compile of that patch. For example, 
given the following host program: 

$ SET MAKEHOST 
BEGIN 

REAL X; 
PROCEDURE P; 

BEGIN 

REAL R; 

R := X + 5; 

END P; 
REAL ARRAY A[0:4]: 
P; 

END. 

If a patch replaces the statement 

R := X + 5; 
by the statement 

R ;= X + A[2]; 

a full compile with the patch fails with a syntax error on the 
assignment to R, because array A has not yet been declared. A sepcomp 
of the patch, however, is successful, because the environment 
information saved for the outer block describes A as well as X and P. 

Additional environments can be saved, if desired, so that procedures at 
lex levels greater than three can be replaced. The list of environments 
can extend across several source records. Environments must be fully 
qualified through the outermost level of PROCEDURE declaration, except 
that for a program that is a procedure, the name of that procedure must 
not appear. A procedure that is specified as an environment must 
contain a local declaration. If a specified environment does not 
contain a local declaration or if it is never found during the course of 
compilation, the compiler gives a syntax error containing the name of 
the environment. Environments can appear in any order, without regard 
to the actual block structure of the host program. 
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Source records that are inserted into a program using the INCLUDE option 
aire not included in the environment information saved by the MAKEHOST 
option. This information is not saved because sequence numbers on 
included records can duplicate sequence numbers occurring in the rest of 
the program. 



The information necessary to make a program into a host program includes 
the information saved for the Binder program when the NOBINDINFO option 
is FALSE; therefore,, an error is given if both the NOBINDINFO option and 
the MAKEHOST option are TRUE. 



When making a host program, the NEW option should be TRUE if any changes 

are made to the host program. The default source file associated with 
the host program is the NEWTAPE file, if one has been created; 
otherwise, it is the TAPE file. 



The MAKEHOST; option must appear before the first syntactic item in a 
program, and it cannot be assigned a value when the programmer is using 
the batch facility. 



Examples 



$ SET MAKEHOST 
BEGIN 

ARRAY A[0:9]; 
PROCEDURE PI; 
BEGIN 
BOOLEAN B; 
PROCEDURE INNER; 
BEGIN 
REAL R; 
IF B THEN 

R := *. + A[2]; 

END INNER; 

END PI; 
PROCEDURE P2 ; 
BEGIN 

END P2; 

END. 

When the above program is compiled, information about the global 
environment is saved in the object code file for the program. If a 
patch is made to the body of procedure INNER, then during the 
sepcomp process, all of procedure PI is recompiled and bound to the 
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host program. If, however, the MAKEHOST option was 
$ SET MAKEHOST (PI) 

then the local environment of PI is also saved in the object code 
file of the program. A sepcomp of a patch to the body of procedure 
INNER would cause only INNER to be recompiled and bound to the host 
program. 



$ SET MAKEHOST 

$ SET MAKEHOST (PASSONE, PASSTWO. WRAPUP OF PASSTWOj 

In this example, the second compiler control option overrides the 

first, saving the environment of procedures PASSONE, PASSTWO, and 

WRAPUP OF PASSTWO in addition to the global environment. 



<MCP option> 



— MCP ~| 



(Type: Boolean, Default value: FALSE) 



When TRUE, the MCP option causes all value arrays, translate tables, 
truth sets, and constant pools to be allocated at lexical (lex) level 
two. 



The MCP option cannot be assigned a value after the appearance of the 
first syntactical item in a program or when the programmer is using the 
batch facility. 



<merge option> 



-- MERGE — I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the MERGE option causes the primary source input file, CARD, 
to be merged with a secondary source input file. TAPE, to form the input 
to the compiler. If matching sequence numbers occur, the record from 
CARD overrides tne record from TAPE. If the MERGE option is FALSE, only 
primary source input is used, and the TAPE file is ignored. 
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The total input to the compiler when the MERGE option is TRUE consists 
of all records from the CARD file, all records from the TAPE file that 
do not have sequence numbers identical to those on records in the GARB 
file, and all records inserted by INCLUDE options. Records in the CARD 
file also override INCLUDE options in the TAPE file if matching sequence 
numbers are encountered. 



When the batch facility is used, the MERGE option cannot be assigned a 
value. 



<new opt ion > 



~ NEW ^-1 



(Type: Boolean, Default value: FALSE) 



When the NEW option is TRUE, the source input to the compiler from the 
CARD file is written to the updated source output file NEWTAPE. If the 
MERGE option is also TRUE, then the merged source input from the CARD 
and TAPE files is written to NEWTAPE. The format of the file written to 
NEWTAPE is such that it can later be used as input to the compiler. 



Records included in the source input by the INCLUDE option are written 
to the NEWTAPE file only if the INCLNEW option is also TRUE. Compiler 
control records ere written to the NEWTAPE file only if the initial 
dollar sign ($) does not appear in column 1. 

The NEWTAPE file is created whether or not syntax errors occur in the 
source input. 

If the MAKEHOST option is TRUE and the first syntactic item has been 
compiled, any attempt to assign a value to the NEW option results in a 
syntax error . 



When the batch facility is used, the NEW option cannot be assigned a 
value. 
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<newseqerr opt ion > 



— NEWSEQERR — 1 
(Type: Boolean, Default value; FALSE) 

When TRUE, the NEWSEQERR option causes an error to be given if the 
sequence • number on a record of the NEWTAPE file is not strictly greater 
than the sequence number of the preceding record. If sequence errors 
occur and the NEWSEQERR option is TRUE, the NEWTAPE file is not loclced, 
the message "NEWTAPE NOT LOCKED" is displayed on the Operator Display 
Terminal (ODT), and the message "NEWTAPE NOT LOCKED < number of errors> 
NEWTAPE SEQUENCE ERRORS" is printed on the printer listing. The 
NEWSEQERR option is effective even if the CHECK option is FALSE. 



When the batch facility is used, the NEWSEQERR option cannot be assigned 
a value. 



<noBCL opt ion > 



~ NOBCL ~ I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the NOBCL option causes a syntax error to be given whenever a 
BCL construct that may lead to the creation of a BCL descriptor is 
encountered. This option is intended to aid in the elimination of BCL 
constructs from a program so that the program can run on non-BCL 
systems. 
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<nobindinf o opt ion > 



— NOBINDINFO — 



(Type: Boolean, Default value: FALSE) 

When TRUE, the NOBINDINFO option prevents information needed by the 
Binder program from being written to the object code file. The 
resulting object code file can be executed, but it cannot be used as an 
input file to the Binder program. Object code files that do not contain 
binding information (bindinfo) are smaller than object code files that 
contain bindinfo. 



Object code files that contain the timing code provided by the 
STATISTICS option cannot be bound. Thus, the NOBINDINFO option is 
assigned the value TRUE if the' STATISTICS option is assigned the value 
TRUE. If the STATISTICS option is TRUE when the NOBINDINFO option is 
assigned the value FALSE, a syntax error is given. 



If the MAKEHOST option is TRUE when the NOBINDINFO option is assigned 
the value TRUE, a syntax error is given. 



When the batch facility is used, the NOBINDINFO option cannot be 
assigned a value. 



<nostacltarrays opt ion > 



~ NOSTACKARRAYS ~| 
(Type: Boolean, Default value: FALSE) 



When TRUE, the NOSTACKARRAYS option prevents arrays from being allocated 
within the stack. 



When the NOSTACKARRAYS option is FALSE, the data from certain arrays is 
allocated within the stack. Such arrays are referred to as "in-stack. 
arrays," and can be accessed slightly faster than an array whose data 
area is allocated in memory. 
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<noxreflist option > 



— NOXREFLIST ~| 



(Type: Boolean, Default value: FALSE) 



When TRUE, the NOXREFLIST option prevents the SYSTEM/XREFANALYZER 
program from being initiated by the compiler when cross-reference 
information is being saved (that is, when either the XREF option or the 
XREFFILES option is TRUE). Instead, the file "XREF/<code file name>", 
where <code file name> is the name of the object code file generated by 
the compiler, remains on disk. SYSTEM/XREFANALYZER can be run later 
using the file "XREF/<code file name>" as input. The NOXREFLIST option 
has no effect if both the XREF option and the XREFFILES option are 
FALSE. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



<oldresize option> 



— OLDRESIZE — I 



(Type: Boolean, Default value: FALSE) 



The OLDRESIZE option, which affected the semantics of the RESIZE 
statement, no longer has any effect. The pre-Mark 3.3 semantics are no 
longer available for newly compiled programs. Any compiler control 
record that assigns the value TRUE to the OLDRESIZE option causes a 
syntax error to be given. Any other appearance of the OLDRESIZE option 
in a compiler control" record causes a warning message to be given. 
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<oiiiit option > 



~ OMIT — I 



(Type: Boolean, Default value: FALSE) 

When TRUE, the OMIT option causes records from the CARD file (and, if 
the MERGE option is TRUE, from the TAPE file) to be ignored (not 
compiled). If both the LIST option and the LISTOMITTED option are TRUE, 
then in the printer listing, the word "OMIT" appears next to the 
sequence number of each omitted record. When the OMIT option is TRUE, 
compiler control records with the initial dollar sign ($) in either 
column 1 or column 2 are recognized, but compiler control records with 
the $ in columns 3 through 72, inclusive, are ignored. 



< optimize opt ion > 



~ OPTIMIZE — i 



(Type: Boolean, Default value: FALSE) 



When TRUE, the OPTIMIZE option causes additional analysis of Boolean 
expressions to be performed, and object code is generated to permit 
early termination of the expression evaluation. Any portion of the 
Boolean expression that could cause side effects is always evaluated. 



<page option > 

~ PAGE ~: 



(Type: immediate) 

When the LIST option is TRUE and the PAGE option appears, the printer 
listing is spaced to the top of the next page. 
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< purge option > 



~ PURGE ~<text> — 



See also 

<text > . 61 



(Type: Binder conunand) 



During autobinding, the PURGE option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder PURGE statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the PURGE option cannot be used. 



<segdescabove option > 



— SEGDESCABOVE 

1 ! 
|-<unsigned integer)-! 



(Type: value. Default value: none) 



The SEGDESCABOVE option is used when compiling large programs that may 
have difficulty in addressing the segment dictionary. 



When a host program is compiled, this option causes all code segment 
descriptors to be allocated starting at the word in the Dl stack 
specified by the unsigned integer. The unsigned integer must be in the 
range 4 to 4095, inclusive. If the option is used after the first 
syntactic item has been compiled, the given value is added to the 
current size of the Dl stack. The Binder program preserves the 
segdescabove specification. Care should be taken when using this 
option, because unused Dl stack locations below the code segment 
descriptors occupy "save" memory when the program is running. 



This option is intended to be used when compiling host files and is 
ignored when separate procedures are compiled. When the batch facility 
is used, the SEGDESCABOVE option cannot be used. 
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<segs option > 



-- SEGS ~ I 

(Type: Boolean, Default value: FALSE for CANDE-origlnated compiles, 
TRUE otherwise) 



If both the LIST option and the SEQS option are TRUE, the printer 
listing will contain beginning and ending segment messages. Assigning a 
value to the LIST option assigns the same value to the SEGS option. 
However, to suppress the segment messages, the SEGS option can be 
assigned the value FALSE even though the LIST option is TRUE. When the 
value of the LIST option Is FALSE, the value of the SEGS option is 
ignored. 



<sepcoiiip option> 



— SEPCOMP 

I I 
|-<title>-| 



See also 

<title> 611 



(Type: Boolean, Default value: FALSE) 



When TRUE, the SEPCOMP option invoices the automatic separate compilation 
and binding facility, called the "sepcomp facility." 



The title of the host program can be specified either by using the 

<title> syntax of the SEPCOMP option or by file-equating the HOST file 

of the compiler. The <title> specification tak.es precedence over file 

equation. The title of the default source file is stored in the host 

program, but this title can be overridden by file equation of the 
compiler file TAPE. 



Compiler control records with blank sequence numbers are accepted 
following the compiler control record that assigns TRUE to the SEPCOMP 
option and before the first "patch record." A patch record is a source 
record with a nonblank sequence number: at least one patch record is 
required in a sepcomp. Sequence number errors among patch records are 
not allowed. The SEPCOMP option examines the patch records, decides 
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which procedures of the host program must be recompiled, and generates 
Binder input for binding these procedures to the host prograir.. The 
SEPCOMP option always tries to compile procedures at the highest 
possible lexical (lex) level. Therefore, the number of extra 
environments specified when mak-ing a host program affects the choices 
available to the SEPCOMP option. 



When TRUE, the SEPCOMP option assigns TRUE to both the AUTOBIND option 
and the LIBRARY option, causing all procedures to be compiled into one 
multiprocedure code file (a temporary file used by the Binder program). 
Explicitly assigning FALSE to the AUTOBIND option prevents the Binder 
from being called and causes the object code file to be lock.ed on disk, 
if the LIBRARY option is TRUE. Explicitly assigning FALSE to the 
LIBRARY option causes each procedure compiled to be put in a separate, 
permanent object code file. Binding still occurs, but at a somewhat 
slower rate. 



If procedures are put in separate code files, the titles of the code 
files are determined in the standard way, with the procedure name 
replacing the last identifier from the title on the compile statement 
that invoked the compiler. Procedures compiled at lex level four and 
higher have the name of their environment in the code file name also. 
In the following example, when two lex- level -four procedures are 
compiled having the same name but different environments, two code files 
are produced (titled "A/PASSONE/Q" and "A/PASSTWO/Q" ) in addition to the 
new host file titled "A/HOST" (assuming that PASSONE and PASSTWO were 
specified as extra environments when A/HOST was made). 

$ SEPCOMP "A/HOST" 

$ RESET LIBRARY 

7c PATCH CARD TO Q OF PASSONE < sequence number > 

% PATCH CARD TO Q OF PASSTWO < sequence number > 



The special information associated with a host program is always copied 
by the Binder to the object code file of the new program so it can be 
used as a host. This information is not updated by either the Binder or 
the compiler during the sepcomp process. Following a sepcomp, this 
information can inaccurately reflect the actual structure and content of 
the host program with which it is associated. 



Because the arrangement of data in a bound code file differs from that 
of an unbound code file, binding to a bound host is faster than binding 
to an unbound host. For this reason, assigning TRUE to the AUTOBIND 
option when compiling a host program can be advantageous, because it 
causes the Binder to be invoked. 
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If the release level of the compiler that creates the host code file and 
the release level of the compiler that is attempting a sepcomp to that 
file are not the same, a syntax error is given and the compilation is 
discontinued. If the code file specified as the host program was not 
compiled with the KAKEHOST option equal to TRUE, or if the host program 
was compiled by a compiler for a different language, a syntax error is 
given and the compilation is discontinued. 



The SEPCOMP option automatically assigns values to several other 
compiler control options in order to simplify operation. The MERGE 
option is unavailable for use . while the SEPCOMP option is TRUE. 
Assigning TRUE to the MERGE option before assigning TRUE to the SEPCOMP 
option is not allowed because it destroys the default file equation of 
the source file to be used for the patches. 



When the batch facility is used, the SEPCOMP option cannot be assigned a 
value. If the TADS option is TRUE when the SEPCOMP option is assigned 
the value TRUE, the value of the SEPCOMP option is left equal to FALSE 
and a warning message is given. The SEPCOMP option cannot be assigned a 
value after the first syntactic item of a program has been compiled. 
Multiple SEPCOMP option settings are not allowed because, when first 
assigned TRUE, the SEPCOMP option initiates preprocessing of the source 
input from the CARD file. 



For more information on the sepcomp facility, refer to the description 
of the MAKEHOST option in this section. 



<seq option > 



— SEQ —I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the SEQ option causes the printer listing and the updated 
source file, NEWTAPE, to contain new sequence numbers. These new 
sequence numbers are determined by the current values of the sequence 
base option and the sequence increment option. 



This option is effective only when the LIST option or NEW option is 

TRUE. The sequence numbers that appear on the records in these files 

when the SEQ option is FALSE are identical to the sequence numbers on 
the corresponding r€?cords in the input files. 
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The sequence base option and the sequence increment option are described 
in this section. 



<seqerr opt ion > 



— SEQERR -- I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the SEQERR option causes an error to be given if the sequence 
number on a record of the TAPE file is not strictly greater than the 
sequence number of the preceding record. If sequence errors occur and 
the SEQERR option is TRUE, the object code file is not locfced, the 
message "CODE FILE NOT LOCKED" is displayed on the Operator Display 
Terminal (ODT), and the message "CODE FILE NOT LOCKED <number of errors> 
TAPE SEQUENCE ERRORS" is printed on the printer listing. The SEQERR 
option is effective even when the CHECK option is FALSE. 



< sequence base option > 



l< i 

I I 
/8\-<digit> I 



(Type; value. Default value: 1000) 



The sequence base option specifies the sequence number that 
assigned to the next record when the SEQ option is TRUE, 
record is resequenced, the value of the sequence base 
increased by the value of the sequence increment option. 



is to be 
After each 
option is 
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(sequence increment option> 

l< -I 

I I 
— + - — /8\-<digit> -I 

(Type: value. Default value: 1000) 

The value of the sequence increment option is used to increment the 
value of the sequence base option when records are resequenced because 
the SEQ option is TRUE. 



< sharing opt ion > 



— SHARING — = DONTCARE ~ 

- PRIVATE — 

- SHAREDBYALL 

- SHAREDBYRUNUNIT 



(Type: value. Default value: DONTCARE) 



The SHARING option is used in a library program 
programs are to share the library. 



to specify how other 



DONTCARE 

If the SHARING option has the value DONTCARE, the Master 
Control Program (MCP) determines the sharing, and it is unknown 
to all users invoking the library. DONTCARE is the default 
value of the SHARING option. 

PRIVATE . • 

If the SHARING option .has the value PRIVATE, a separate 
instance of the library is started for each invocation of the 
library. Any changes made to global items in the library by a 
block, that invoked the library apply only to that user of the 
library. 
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SHAREDBYALL 

If the SHARING option has the value SHAREDBYALL, all 
invocations of the library share the same instance of the 
library. Any changes made to global items in the library by a 
block, that has invoked the library apply to all users of that 
library. 

SHAREDBYRUNUNIT 

A run unit consists of a program and all libraries that are 
initiated either directly or indirectly by that program. A 
"program," in this context, does not include either a library 
that is not frozen or any tasks that are initiated by the 
program (that is, a process family is not a run unit). If the 
SHARING option has the value SHAREDBYRUNUNIT, all invocations 
of a library within a run unit share the same instance of the 
library. 

Note that a library is its own run unit until it freezes. For 
example, program P initiates library A and, before library A 
freezes, it in turn initiates library B. Now library B is in 
library A's run unit, not in program P*s run unit. Had library 
A initiated library B after freezing, both library A and 
library B would be in program P's run unit. 



The SHARING option must appear before the first syntactic item in the 
program, and it cannot appear when the batch facility is used. 



< single option > 



~ SINGLE —I 



(Type: Boolean, Default value: TRUE if the compiler was compiled with 
the DOUBLESPACE compiler-generation option equal to FALSE, FALSE 
otherwise) 



When TRUE, the SINGLE option causes the printer listing to be 
single-spaced. When FALSE, the SINGLE option causes the printer listing 
to be double-spaced. 
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< stack opt ion > 



— STACK — I 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the STACK option are TRUE, the printer 
listing includes the relative stack, addresses, in the form of address 
couples, for all program variables. If the LIST option is TRUE but the 
STACK option is FALSE, the printer listing does not contain these 
address couples. The value of the STACK option is ignored if the LIST 
option is FALSE. 



<statistics option> 



— STATISTICS ~ 

I I 
I- ( LABELS ~ ) -I 

I I 

I- SET 1 

I I 
I- RESET -I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the STATISTICS option causes timing statistics to be 
gathered. The option is examined at the beginning of each procedure or 
block and, if it is TRUE at that time, timing statistics are gathered 
for that procedure or block. Although the value of the option can be 
altered at any time, only its value at the beginning of procedures and 
blocks is significant in determining whether timings are made. 



The Binder program cannot bind object code files that contain the timing 
code necessary for statistics; therefore, if the NOBINDINFO option is 
FALSE when the STATISTICS option is assigned the value TRUE, the 
NOBINDINFO option is assigned the value TRUE and a warning message is 
given. If the STATISTICS option is TRUE when the NOBINDINFO option is 
assigned the value TRUE^ a syntax error is given. 
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If statistics are taken for a procedure or block, the frequency of 
execution of that procedure or block is measured, along with the length 
of time spent in that procedure or block. When the program is completed 
for any reason (including both normal and abnormal termination), the 
statistics of the executing task are printed out to the TASKFILE. 



On the statistics output listing, an asterisk (*) indicates that doubt 
exists about the timing for the specific procedure whose name precedes 
the asterisk. In addition, timings are invalid for any procedure or 
block that is resumed by a "bad go to." 



Only the first six characters of any identifier are printed oh the 
listing. 



For any procedure or block that has statistics gathered, the timings can 
be broken down to the label level within that procedure or block by 
using the LABELS syntax. The word "LABELS" can be preceded by "SET" or 
"RESET"; if both are omitted, SET is assumed. For example, 

$ SET STATISTICS (LABELS) 

begins timing of label breakpoints, and 

$ SET STATISTICS (RESET LABELS) 

ends timing of label breakpoints. The words "SET" or "RESET" inside the 
parentheses affect only the LABELS specification. 



<stop option > 



— STOP — <text> — I 



See also 

<text> 61 



(Type: Binder command) 



During autobinding, the STOP option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder STOP statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the STOP option cannot be used. 
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<TADS option> 



- TADS ■ 

I I 
I |< _ , I I 

I I II 

I- ( /1\- FREQUENCY ) -| 

• I i 
|-/1\- REMOTE --<file identifier >- I 



See also 

<file identifier >. 85 



(Type: Boolean, Default value: FALSE) 



When the TADS option is TRUE, special debugging code and tables are 
generated as part of the object code file. The tables are generated to 
support the symbolic debugging environment of the ALGOL Test and Debug 
System (TADS). For more information on ALGOL TADS, refer to the "ALGOL 
Test and Debug System (TADS) User's Guide." 



The FREQUENCY option causes additional code and tables to be generated 
for coverage and frequency analysis. This option must be specified if 
either the TADS "FREQUENCY" command or the TADS "COVERAGE" command is to 
be used to determine the number of times individual statements have been 
executed or which statements have not been executed. 



The REMOTE option allows TADS to share a remote file with the program 
being tested. Sharing a file might be necessary, because only one 
remote input file can be open for each station. If specified, the <file 
identifier > must correspond to a file identifier declared in a FILE 
declaration occurring later in the outer block of the program. The file 
must have the attributes KIND, equal to REMOTE, UNITS equal to 
CHARACTERS, and FILEUSE equal to 10. The MAXRECSIZE attribute must not 
be less than 72. The file must not be declared to be a direct file. 



If the AUTOBIND option, the MAKEHOST option, or the SEPCOMP option is 
TRUE when the TADS option is assigned the value. TRUE, then the TADS 
option is assigned the value FALSE and a warning message is given. 
Programs compiled with the TADS option equal to TRUE cannot assign TRUE 
to the MAKEHOST option, the AUTOBIND option, or the SEPCOMP option, and 
they cannot be used as input files to the Binder program. 
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The TADS option must appear before the first syntactic item in a 
program. 



< target opt ion > 



~ TARGET — = THIS 

I- LEVELO - 
I- LEVELl - 
I- B5900 ~ 
I- B6800 — 
I- B6900 ~ 
I- B7000 ~ 
I- B7700 ~ 
I- B7800 ~ 
I- B7900 — 
i- A 3 

I- A 9 

I 
I 

I- A 10 



(Type: Value, Default value: installation-defined) 



The TARGET option specifies the computer family for which the generated 

code is to be optimized. The keyword "THIS" indicates that code is to 
be optimized for the computer on which it is compiled. The keyword 

"LEVELO" indicates that code is to be optimized for the 

B 5000/B 6000/B 7000 Series of computers. The keyword "LEVELl" 

indicates that code is to be optimized for the A Series of computers. 

The generated object code can be run on any computer that is 

code^compatible with the specified family. Table 7-2 indicates 
code-compatible families. 
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Table 7-2. Code-Compatible Families 



Target 
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X 


X 
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X 


X 


X 
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X 


X 


X 
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X 


X 


X 



For information on how an installation defines the default target 
computer family, refer to the "COMPILERTARGET" command in the "Operator 
Display Terminal (ODT) Reference Manual." 



This option must appear before the first syntactical item in the 
program. It cannot be used in the same program as the B7700 option. 



<time opt ion > 



— TIME —I 



(Type: Boolean, Default value: FALSE) 



When TRUE, the TIME option causes trailer information, such as the 
number of errors, the number of code segments, and the compilation time, 
to be printed on the printer listing. Because this trailer information 
is also printed when the LIST option is TRUE, the value of the TIME 
option is effective only when the LIST option is FALSE. 
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— USE — <text> — I 

See also 

<text>. . . . . . . 

(Type: Binder command) 
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During autobinding, the USE option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder USE statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the USE option cannot be used. 



<user opt ion > 



— < identif ier > — I 



(Type: Boolean, Default value: FALSE) 



If an identifier on a compiler control record is not recognized as one 
of the predefined options, it is considered to be a user option. A user 
option can be manipulated exactly like any other Boolean option; that 
is, it can be assigned values by using the SET, RESET, and POP keywords. 
In addition, it can be used in option expressions to assign values to 
standard Boolean options or to other user options. 
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<version option> 



<replace version> I 

I I 
|-<append version> — I 

<replace version > 

— VERSION --<version increment > — . -^-<cycle increment >-- > 

> _ I 

I I . 

I- . — <patch number >- I 

<version increment> 

— <di.git> — <digit> — i 

<cycle increment) 

— <digit > — <digit > — <digit> — I 

<patch number > 

— <digit> — <digit> — <digit> — I 

<append vers ion > 

— VERSION ~ + — <version increment) — . — + — <cycle increment>-> 

> 1 

I I . ' 

i- . — <patch number >- I 

(Type: value. Default value: OO.QOO.OOO) 



The VERSION option allows the user to specify an initial version number 
for a program, replace an existing version number, or append to an 
existing version number. 



If the NEW option is TRUE, a VERSION option appears in the TAPE file, 
and the CARD file contains a <replace version) or <append version), then 
the VERSION option record in the NEWTAPE file is updated with the 
version, cycle, and patch number in the last VERSION option record in 
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the CARD file. The sequence number of the VERSION option ip the CARD 
file must be less than the sequence number of the VERSION option in the 
TAPE file. 



The functions COMPILETIME( 20 ) , COMPILETIME( 21 ) , and COMPILETIME( 22 ) 
allow a programmer to access the current version, cycle, and patch 
numbers, respectively. For more information, see " <compiletime 
function)" in the chapter "Expressions." 



When the batch facility is used, the VERSION option cannot be used. 



See also 

<compiletime function) 538 



Examples 



$ VERSION 25.010.010 

Sets the current version to 25.010.010. 



$ VERSION +01. +001. 010 

Increments the current version by 01 in the version increment, by 
001 in the cycle increment, and assigns 010 to the patch number. 
For example, if the existing version is 25.010.005 and this VERSION 
option is compiled, the resulting version is 26.011.010. 



<void option > 



— VOID — i 



(Type: Boolean, Default value: FALSE) 



When TRUE, the VOID option causes all source input other than compiler 
control records from both the TAPE and CARD files to be ignored by the 
compiler until the VOID option is assigned the value FALSE. The ignored 
source input is neither listed nor included in the updated source file, 
regardless of the values of the LIST option and the NEW option. Once 
the VOID option is assigned TRUE, it can be assigned FALSE only by a 
compiler control record in the CARD file. 
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<voidt option > 



~ VOIDT — i 



(Type: Boolean, Default value: FALSE) 



If the MERGE option is TRUE and the VOIDT option is TRUE, all source 
input from the TAPE file is ignored by the compiler until the VOIDT 
option is assigned the value FALSE. Therefore, while the VOIDT option 
is TRUE, only primary source input from the file CARD is compiled. The 
ignored input is neither listed nor , included in the updated source file, 
regardless of the values of the LIST option and the NEW option. Once 
the VOIDT option is assigned TRUE, it can be assigned FALSE only by a 
compiler control record in the CARD file. If the MERGE option is FALSE, 
the value of the VOIDT option is ignored. 



<warnsupr option > 



-- WARNSUPR — 



: Type : Boolean, Default value: FALSE) 



When TRUE, the WARNSUPR option prevents, warning messages from being 
given. 



<writeafter option > 



— WRITEAFTER — | 



(Type: Boolean, Default value: FALSE) 



The WRITEAFTER option provides the ability to designate whether carriage 
centre is performed before or after a write operation. The option can 
be assigned values repeatedly in order to select bef ore-write or 
after-write carriage control for individual files and I/O statements. 



Normally in ALGOL, carriage control is performed following a write 
operation. 
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If the WRITEAFTER option is TRUE when a FILE declaration is compiled, 
then for all I/O statements that explicitly reference the file» carriage 
control is done before a write operation. For any I/O statement 
compiled when the WRITEAFTER option is TRUE, carriage control is done 
before the write operation. 

The WRITEAFTER option does not apply to direct files or direct I/O 
statements. 



<xdecs opt ion > 



— XDECS —I 



(Type: Boolean, Default value: TRUE if either the XREF option or the 
XREFFILES option is TRUE, FALSE otherwise) 



When the compiler is saving cross-reference information because the XREF 
option or the XREFFILES option is TRUE, only identifiers declared while 
the XDECS option is TRUE are included in the cross-reference 
information. This option is assigned TRUE when the XREF option or the 
XREFFILES option is assigned TRUE and can be assigned a value as many 
times as desired. If the XDECS option is assigned the value TRUE and 
both the XREF option and the XREFFILES option are FALSE, the XDECS 
option is assigned FALSE and a syntax error is given. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



<xref opt ion > 



— XREF 

I I 
|-<linewidth>- I 



<linewidth> 

An <integer> between 72 and 160, inclusive. 



(Type: Boolean, Default value: FALSE) 
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Depending on the values of several related compiler control options, the 
compiler optionally generates cross-reference information containing an 
alphabetized list of identifiers that appear in the program and, for 
each identifier, the type of the item named by that identifier, the 
sequence number of the source input record on which the identifier is 
declared, the sequence numbers of the input records on which the 
identifier is referenced, and other relevant information. The following 
factors can be controlled through the use of compiler control options: 

1. Whether or not the compiler saves cross-reference information 
as it is processing the source input 

2. Which identifiers and which references to these identifiers are 
cross-referenced 

3. Whether or not the SYSTEM/XREFANALYZER program is initiated 
automatically by the compiler 

4. If SYSTEM/XREFANALYZER is automatically initiated, whether it 
is to produce printed output, disk files suitable for input to 
SYSTEM/ I NTERACTIVEXREF and the Editor, or both 



The compiler saves cross-reference information if either the XREF option 
or the XREFFILES option or both options are TRUE. This information is 
discarded if any syntax errors occur during compilation. If used, these 
options should be assigned TRUE before any source input has been 
processed. Once assigned TRUE, these options cannot be assigned FALSE. 



The identifiers and their references to be cross-referenced can be 
selected by the XDECS option and the XREFS option, respectively. 
Neither of these options can be used if cross-reference information is 
not being saved by the compiler (that is, if both the XREF option and 
the XREFFILES option are FALSE). 



When the compiler is saving cross-reference information, this 
information is written to a disk file in raw form. Before this 
information can be printed or read by SYSTEM/ I NTERACTIVEXREF and the 
Editor, it must be analyzed by SYSTEM/XREFANALYZER. If the NOXREFLIST 
option is FALSE, the compiler automatically initiates 
SYSTEM/XREFANALYZER to process the raw cross-reference file. If the 
NOXREFLIST option is TRUE, SYSTEM/XREFANALYZER is not initiated, and the 
compiler's raw file is left on disk with the title "XREF/<code file 
name>", where <code file name> is the name of the object code file 
produced by the compiler; this file can be analyzed at a later time by 
running SYSTEM/XREFANALYZER directly. 



If the compiler initiates SYSTEM/XREFANALYZER (that is, if the 

NOXREFLIST option is FALSE), the program produces either a printed 
listing or a pair of disk files suitable for the Editor and 
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SYSTEM/INTERACTIVEXREF. If the XREF option is TRUE, a listing is 
produced. If the XREFFILES option is TRUE, the pair of disk, files is 
produced; these files are titled "XREFFILES/ < code file name>/XREFS" and 
"XREFFILES/ <code file name>/XDECS" . If both the XREF option and the 
XREFFILES option are TRUE, both a listing and the disk files are 
produced. 



The line width, in characters, of the listing produced by 
SYSTEM/XREFANALYZER can be specified by the <linewidth> construct. If 
not specified, the line width is 132. 



User options are included in the cross-reference information. 



SYSTEM/XREFANALYZER is described under "XREFANALYZER" in the "System 
Software utilities Reference Manual," and SYSTEM/INTERACTIVEXREF is 
described under "INTERACT I VEXREF" in the "System Software Utilities 
Reference Manual." The Editor is described in the "Editor User's Guide." 



<xref files opt ion > 



— XREFFILES — | 



(Type: Boolean, Default value: FALSE) 



When TRUE, the XREFFILES option causes cross-reference information to be 
saved by the compiler and causes the SYSTEM/XREFANALYZER program, if it 
is initiated by the compiler, to produce files that can be used by the 
Editor and SYSTEM/INTERACTIVEXREF. These files have the titles 
"XREFFILES/ < code file name>/XDECS" and "XREFFILES/ < code file 
name>/XREFS" , where <code file name> is the name of the object code file 
that the compiler is generating. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 
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<xrefs opt ion > 



— XREFS. — 



(Type: Boolean, Default value: TRUE if either the XREF option 
XREFFILES option is TRUE, FALSE otherwise) 



or the 



When the compiler is saving cross-reference information because the XREF 
option or the XREFFILES option is TRUE, only identifier references that 
are encountered while the XREFS option is TRUE are included in the 
cross-reference information. This option is assigned TRUE when the XREF 
option or the XREFFILES option is assigned TRUE, and it can be assigned 
a value as many times as desired. If the XREFS option is assigned the 
value TRUE when both the XREF option and the XREFFILES option are FALSE, 
then the XREFS option is assigned FALSE and a syntax error is given. 



For more information on cross-refereheing, refer to the 
the XREF option in this section. 



description of 



<$ option > 



— $ — 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the $ option are TRUE, the printer listing 
includes all compiler control records. If the LIST option is TRUE but 
the $ option is FALSE, only compiler control records with an initial 
dollar sign ($) in columns 2 through 72, inclusive, appear in the 
printer listing. If the LIST option is FALSE, the value of the $ option 
is ignored. 
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The library facility is a fea;ture that can be used to structure 
processes. A library is a program containing one or more procedures 
that can be called by other programs, which are referred to as "calling 
programs." These procedures are "entry points" into the library. Unlik-e 
a regular program, which is always entered at the beginning, a library 
can be entered at any entry point. 



Libraries provide all the benefits of procedures plus the added 
advantages that they can be reused, and they can be shared by a number 
of programs. Consolidating logically related functions into a library 
can mak.e programming easier, and progiram structure more visible. A call 
on a procedure in a library is equivalent to a call on a procedure in 
the calling program. 

Libraries offer the following improvements over binding: 

1. Interlanguage communication is significantly improved. 

2. Standard packages of functions (such as plotting and 
statistics) need not be copied into any calling programs. 



Libraries offer the following improvements over installation intrinsics: 

1. A library can have its own global files, databases, transaction 
bases, and so on. 

2. Libraries can contain initialization and termination code. 

3. Libraries can themselves call other libraries. 

4. Individual users can create their own libraries without 
possessing special privileges. 

5. Libraries can be written in more languages than can the 
installation intrinsics. 



6. 



More than one version of a library can be in use at a time. 
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FUHCTIONAL . DESCRIPTION OF LIBRARIES 



This section describes how the library facility operates. 



Library Programs 



A library program is a program that specifies entry points (procedures) 
for use by calling programs and is distinguished by the occurrence of 
EXPORT declarations and FREEZE statements. A procedure in a library is 
specified to be an entry point by appearing in an EXPORT declaration. A 
library program becomes a library after execution of a FREEZE statement. 



Calling Programs 



A calling program is a program that calls entry points provided by a 

library and is distinguished by the appearance of LIBRARY declarations 

and PROCEDURE declarations that contain the <library entry point 
specif ication> construct. 



A library can itself function as a calling program and call other 
libraries. The only restriction is that a chain of library linkages 
must never be circular. That is, a library cannot reference itself, 
either directly or indirectly, through a chain of library references. 



Library Directories and Templates 



The information used by the Master Control Program (MCP) to match entry 
points in a library with entry points declared in a calling program is 
contained in a pair of data structures called the "directory" and the 
"template," which are built by the compilers. 



When a program exports entry points and contains a FREEZE statement, the 
object code file for that program contains a library directory. One 
directory exists for each block that contains an EXPORT declaration. 
After a library "freezes" (executes a FREEZE statement), only one 
directory is in effect until the library program finishes executing. 



A library directory contains a description of all the entry points in 
the library. This description includes the following information: 

1. The name of the entry point 
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2. The entry point's type 

3. A description of the entry point's parameters 

4. Information on how the entry point is provided (see "Linkage 
Provisions" later in this chapter) 

When a program declares a library and entry points in that library, the 
object code file for the program contains a library template that 
describes the library and the declared entry points. One template 
•exists for each library declared in the calling program. A template 
contains the following information: 

1. A description of the attributes of the library 

2. A description of all the entry points of the library that are 
declared by the program. Each description includes the 
following Information: 

a. The name of the entry point 

b. The entry point's type 

c. A description of the entry point's parameters 



The SETACTUALNAME function can b^ used to change the name of an entry 
point in an unlinked library template. (For more information, refer to 
the SETACTUALNAME function in the chapter "Expressions.") 



See also 

Linkage Provisions.' 659 

<setactualname function>. 575 



Library Initiation 



On the first call on an entry point of a library or at an explicit 
linkage request, the calling program is suspended. The description of 
the entry point in the library template of the calling program is 
compared to the description of the eintry point with the same name in the 
library directory associated with thie referenced library. 



If the entry point does not exist in the library, or if the two entry 
point descriptions are not compatible, a run-time error is given and the 
calling program is terminated. If the entry point exists and the two 
entry point descriptions are compatible, the MCP automatically initiates 
the library program (if it has not already been initiated). The library 
program runs normally until it executes a FREEZE statement, which makes 
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the entry points available. All of the entry points of the library that 
are declared in the calling program are linked to the calling program, 
and the calling program resumes execution. 



If a calling program declares an entry point that does not exist in the 
library, no error is generated when the library is initiated; however, a 
subsequent call on that entry point causes a "MISSING ENTRY POINT" 
rUn-time error, and the calling program is terminated. 



A library can be specified to be permanent or temporary. A permanent 
library remains available until it is terminated either by the Operator 
Display Terminal (ODT) commands DS (Discontinue) or THAW, or by 
execution of a CANCEL statement. A temporary library remains available 
as long as users of the library remain. A temporary library that is no 
longer in use "unfreezes" and resumes running as a regular program. 



The PERMANENT or TEMPORARY specifications of the FREEZE statement 
control the duration of a library. Any running program that executes a 
FREEZE statement becomes a library. When a library is initiated by 
explicitly running the library program instead of by calling an entry 
point, the FREEZE statement should specify PERMANENT. (If TEMPORARY is 
specified, the library immediately unfreezes because it has no users.) 
After a library unfreezes, it must not execute another FREEZE statement 
in an attempt to become a library again,. 



Because a library program initially runs as a regular program, the flow 
of execution can be such that the execution of a FREEZE statement is 
conditional and can occur anywhere in the program. 



If a calling program causes a library program to be initiated and the 
library program terminates without executing a FREEZE statement (for 
example, because it was not actually a library program and, thus, had nc 
FREEZE statement), the attempted linkage to the library entry points 
cannot be made, and the calling program is terminated. 



Linkage to a library can be explicitly requested by using the 
LINKLIBRARY function, which is described in the cnapter "Expressions." 



See also 

<link,library function) 
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Linkage Provisions 



Entry points declared in a calling program are linked to corresponding 
entry points provided by a library in one of three ways: 

1 . Directly 

2. Indirectly 

3. Dynamically 



The library program specifies the form of linkage. Indirect and dynamic 

linkages allow linkage to be established to libraries other than the 
library specified by the calling program. The calling program can 
control the library invocation to which it is linked only by specifying 
the object code file title or the function name of the library or, for 
dynamic linkage, by specifying the LIBPARAMETER library attribute. 
Depending on the value of the LIBACCESS library attribute, the TITLE 
attribute or FUNCTIONNAME attribute is used to specify the object code 
file title of the library. (For a discussion of the library attributes, 
refer to "Library Attributes" in this chapter.) 



Direct linkage occurs when the library program contains the procedure 
that is named in the EXPORT declaration of the library. 



Indirect linkage occurs when the library program exports a procedure 
that is declared as an entry point of another library. The MCP then 
attempts to link the calling program to this second library,, which can 
provide the entry point directly, indirectly, or dynamically. 



Dynamic linkage allows a library program to determine at link time which 
library task the calling program will be linked to. The library program 
must provide a selection procedure that accepts the value of the 
LIBPARAMETER library attribute as a parameter. Based on the value of 
LIBPARAMETER, the selection procedure selects and initiates a library 
task. The selection procedure must also accep:, as a second parameter, 
a procedure. This procedure, which is provided by the MCP to verify 
that the library task is valid and complete, must be called before the 
selection procedure is exited. The MCP calls the selection procedure at 
link time. (Refer to "Library Examples" in this chapter for a more 
detailed explanation and examples of libraries that provide dynamic 
linkage. ) 
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The only restrictions on the complexity of indirect and dynamic linkages 
are as follows: 

1. Eventually, some library must provide the entry point directly. 

2. The chain of referenced libraries must never become circular. 



See also 

Library Attributes 
Library Examples. 



Discontinuing Linfcaee 



A program can delink from a library program by using either the CANCEL 
statement or the DELINKLIBRARY function. 



The CANCEL statement causes the library program to unfreeze and resume 
running as a regular program. The CANCEL statement can be used only on 
PRIVATE and SHAREDBYRUNUNIT libraries. 
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The DELINKLIBRARY function affects only the linlcage between the program 
executing the DELINKLIBRARY function and the specified library. Any 
other programs linked to the specified library are not affected. (For 
more information, see the DELINKLIBRARY function in the chapter 
"Expressions.") 



See also 

<delink.library function;- 543 



Error Handling 



Any fault caused (and ignored) by a procedure in a library that is 
invoked by a calling program is treated as a fault in the calling 
program. If ignored by the calling program, this fault causes the 
calling program to be terminated but has no effect on the status of the 
library. 



If a library program faults (or is otherwise terminated) before 
executing a FREEZE statement, then all calling programs that are waiting 
to link to that library program are also terminated. 



Interface to the Library Facility 



661 



If a library is terminated while calling programs are linked to it. 
those calling programs are also terminated. 



The first call on an entry point in a library causes library link.age to 
be made. In this phase, an attempt is made to locate and establish 
links to all entry points declared by the calling program. If an entry 
point declared in the calling program does not exist in the library, its 
linkage cannot be established, and any subsequent calls to that entry 
point result in a "MISSING ENTRY POINT" error. This error continues to 
occur whenever a calling program links to that instance of the library 
and calls that entry point. Thus, it is advisable to remove that 
instance of the library (by either a THAW or DS (Discontinue) ODT 
command) and initiate a correct version of the library. (For more 
information, refer to the "Operator Display Terminal (ODT) Reference 
Manual" for a description of these commands.) 
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CREATING LIBRARIES 



A library program is created by using the EXPORT declaration to declare 
procedures to be exported as entry points, and by using the FREEZE 
statement. The duration of a library program following initiation is 
controlled by the TEMPORARY or PERMANENT specification of the FREEZE 
statement. The allowed sharing of a library program is controlled by 
the SHARING compiler control option, described below. 



Library Sharing Specif ications 



Users of a library can be restricted through the normal file access 
features provided by the system. The allowed simultaneous usage of a 
library can be specified by the creator of the library at compile time 
through the SHARING compiler control option. The library sharing can be 
PRIVATE, SHAREDBYALL, SHAREDBYRUNUNIT , or DONTCARE. 

PRIVATE 

A separate instance of the library is started for each 
invocation of the library. Any changes made to global items in 
the library by the program unit (block., procedure, or external 
task.) invoking the library apply only to that particular 
calling program. 

SHAREDBYALL 

All invocations of the library share the same instance of the 
library. Any changes made to global items in the library by a 
program unit that has invoked the library apply to all users of 
that library. 

SHAREDBYRUNUNIT 

A run unit consists of a program and all libraries that are 
called, either directly or indirectly, by that program. A 
"program." in this context, excludes both a library that is not 
frozen and any tasks that are initiated by the program (that 
is, a process family is not a run unit). All invocations of a 
library within a run unit share the same instance of the 
library. 

Note that a library is its own run unit until it freezes. For 
example, program P initiates library A and. before library A 
freezes, it in turn initiates library B. Now library E is in 
library A's run unit, not in program P's run unit. Had library 
A initiated library B after freezing, both library A and 
library B would be in program P's run unit. 
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DONTCARE 

The MCP determines the sharing. This determination is unknown 
to all users invoking the. library. 



The default value of the SHARING compiler control option is DONTCARE. 
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REFERENCING LIBRARIES 



To use a library, the calling program does the following: 

Declares the library in a LIBRARY declaration, specifying the 
attributes of the library 

- Declares the entry points of the library in PROCEDURE 
declarations with <library entry point specif ication> parts 



When an entry point is invoiced or at an explicit link,age request, the 
MCP automatically creates the library linkage. If the library program 
has not already been initiated, the MCP initiates it; then, when the 
library is frozen, the MCP links the library to the calling program. 
The MCP attempts to make linkages to all entry points referenced in a 
library at the time that the library is first invoked. 



The LINKLIBRARY function can be used to determine whether or not "the 
calling program is currently linked to or is capable of being linked to 
a particular library program. If the calling program is not currently 
linked but is capable of being linked, the linkage is performed. During 
the linkage process, an attempt is made to link to every entry point 
exported from the library whose name matches an entry point declared in 
the calling program. Only those names that match are checked for 
correct function type, number of parameters, and parameter types. 
Therefore, the LINKLIBRARY function does not check that every entry 
point declared in the calling program is also exported from the library. 
(For more information, see the LINKLIBRARY function in the "Expressions" 
chapter . ) 



See also 

<linklibrary function) 559 



The CANCEL statement and the DELINKLIBRARY function can be used to 
terminate the linkage between a calling program and a library. The 
CANCEL statement causes the library to unfreeze and resume running as a 
regular program regardless of whether it is temporary or permanent. 
Only PRIVATE libraries or SHAREDBYRUNUNIT libraries can be canceled. 
The DELINKLIBRARY function has no effect on any other users of the 
library. (For more information on the DELINKLIBRARY function, refer to 
the description of the function in the chapter . "Expressions ." ) 



See also 

<delinklibrary function) 
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The SETACTUALNAME function determines whether or not the name of a 
particular library entry point can be changed in the template to a 
particular character string and, if possible, makes the change. The 
name of an entry point of a linked library cannot be modified. 
Therefore, a linked library must be delinked before the SETACTUALNAME 
function can be called to change the name of any of its entry points. 
(For more information, see the SETACTUALNAME function in the chapter 
"Expressions.") 



See also 

<setactualname function>. . , 575 



Library Attributes 



Libraries, like files, have attributes that can be assigned values and 
tested programmatically. 

The calling program can change library attributes dynamically: however, 
since the MCP ignores, any changes made to library attributes of linked 
libraries, these changes must not be made while the program is linked to 
the library. Any library attribute changes must be made before the 
calling program has linked to the library or after the library has been 
delinked from the program. 



This section describes the library attributes. The first line of each 
description tells whether the attribute can be read or written or both; 
Its type; and its default value, if any. 



FUHCTIOHNAME 

(Read/Write, EBCDIC string-valued) 

FUNGTIONNAME specifies the system function name used to find the 
target object code file for the library. (For more information, 
refer to the LIBACCESS attribute.) 



INTNAME 

(Read/Write, EBCDIC string-valued) 

INTNAME specifies the internal identifier for the library. 
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LIBACCESS 

(Read/Write, mnemonic-valued. Default value: BYTITLE) 

LIBACCESS specifies the way in which , a library object code file is 
accessed when a library is called. LIBACCESS has one of the 
mnemonic values BYTITLE or BYFUNCTION. If the value is BYTITLE, the 
TITLE attribute of the library is used to locate the object code 
file. If the value is BYFUNCTION, the value of the FUNCTIONNAME 
attribute of the library is used to access the MCP library function 
table, and the object code file associated with that FUNCTIONNAME is 
used. 



LIBPARAMETER 

(Read/Write, EBCDIC string-valued) 

LIBPARAMETER is used to transmit information from the calling 
program to the selection procedures of libraries that provide entry 
points dynamically. 



TITLE 

(Read/Write, EBCDIC string-valued) 



TITLE specifies the object code file title of the library. (For 
more information, refer to the LIBACCESS attribute.) 
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Example 



The following program shows examples of how the LIBACCESS, TITLE, and 
FUNCTIONNAME library attributes can be used. 



BEGIN 

% LIBRARYl, DECLARED BELOW, IS NOT A SYSTEM LIBRARY, ITS LIBACCESS 
.% ATTRIBUTE, SET TO BYTlTLE, INDICATES THAT THE TITLE ATTRIBUTE 
% IS USED TO LOCATE THE LIBRARY'S CODE FILE. 

LIBRARY LIBRARYl(TITLE="OBJECT/LIERARYl.",LIBACCESS=ByTITLE); 
REAL PROCEDURE PROCl; ... 

LIBRARY LIBRARYl; 
REAL PROCEDURE PR0C2; 

LIBRARY LIBRARYl; 
REAL PROCEDURE PR0C3; 

LIBRARY LIBRARYl; 

% THE LIBRARY DECLARED BELOW IS A SYSTEM LIBRARY. ITS LIBACCESS 
% ATTRIBUTE. SET TO BYFUNCTION, INDICATES THAT THE FUNCTIONNAME 
% ATTRIBUTE OF THE LIBRARY IS LOOKED UP IN THE MCP LIBRARY FUNCTION 
% TABLE, AND THE CODE FILE ASSOCIATED WITH THE FUNCTIONNAME, 
% SYSTEMLIB, IS USED. 

LIBRARY LIBRARY2( FUNCTIONNAME="SYSTEMLIB. " ,LIBACCESS=BYFUNCTION ) ; 
PROCEDURE SYSTEMLIBPROC ; 
LIBRARY LIBRARY2; 



<executable statements > 



END. 
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Entry Point Type Matching 

Library entry points can be either typed or untyped, and they can have 
parameters. Type matching Is performed on entry points during library 
linkage. If the description of an entry point in the template does not 
match the description of the entry point in the directory, the linkage 
is not made, and the calling program is terminated. Matching is based 
on several factors: the procedure type, the number of parameters, the 
parameter types, and the ways in which the parameters are passed. 
Parameters are passed as call-by-value, call-by-reference, or 
call-by-name. 

An ALGOL library entry point can be any of the following: 

- ASCII string procedure 

- Boolean procedure 
Complex procedure 
Double procedure 
EBCDIC string procedure 
Hexadecimal string procedure 
Integer procedure 

- Real procedure 

- Untyped procedure 

The parameters of an ALGOL library entry point can be any of the 
following: 

- Boolean variable, array, or direct array 
Double variable, array, or direct array 
Real variable, array, or direct array 
Integer variable, array, or direct array 
Complex variable or array 

- EBCDIC string variable or array 

- ASCII string variable or array 
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- Hexadecimal string variable or array 

- EBCDIC character array or direct array 
. - ASCII character .array or direct array 

- Hexadecimal character array or direct array 
-• Event variable or array 

- Task, variable or array 

- File or direct file 

- Pointer 

- A fully-specified procedure (declared using "FORMAL") with the 
above restrictions on its possible parameters and type 

Parameter Passing 

If a library program declares a parameter to be call-by-name, the 
calling program can declare the parameter to be call-by-name, 
call-by-reference, or call-by-value. If a library program declares a 
parameter to be call-by-ref erence, the calling program can declare the 
parameter to be call-by-name, call-by-reference, or call -by- value. If a 
library program declares a parameter to be call-by-value, the calling 
program can declare the parameter only to be call-by-value. 



Table 8-1 illustrates the parameter passing rules. 



Table 8-1. Parameter Passing Rules 







calling Program 
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In ALGOL programs, parameters are declared to be either call-by-value or 
call-by-name. In ALGOL library programs, parameters to entry points 
that are declared to be call-by-value are described in the directory as 
call-by-value; parameters declared to be call-by-name are described in 
the directory as call-by-reference, except for formal procedures and 
Boolean, complex, double, integer, and real variables, which are 
described in the directory as call-by-name. In ALGOL calling programs, 
parameters to entry points that are declared to be call-by-value are 
described in the template as call-by-value; parameters declared to be 
call-by-name are described in the template as call-by-reference, except 
for Boolean, complex, double, integer, and real variables, which are 
described in the template as call-by-name. 



An array parameter in ALGOL that is declared with any of its lower 
bounds as an asterisk. (*) lower bound is described in the template or 
directory as N+1 parameters, where N is the number of dimensions of the 
formal array. The first parameter is the array itself, followed by the 
N lower bounds described as call-by-value integer variables. 
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LIBRARY EXAHPLES 



This section gives examples of libraries and calling programs that call 
these libraries. 



Library: OBJECT/FILEMAMAGER/LIB 



The following library program illustrates dynamic linkage. This library 
provides a set of file management routines. The users of this library 
would assign the title of the file to be used to the LIBPARAMETER 
attribute. LIBPARAMETER is then used at link time to determine to which 
library task, the user is to be linked. 



This library represents features of dynamic linkage but does not 
necessarily represent efficient programming. 



$ SHARING = PRIVATE 
BEGIN 

TASK ARRAY LIBTASKSL 0:10]; % PROVIDES UP TO 11 DIFFERENT LIBRARY 

% TASKS 

STRING ARRAY FILETITLES[0: 10] ; % LIBPARAMETER FOR EACH OF THE TASKS 

PROCEDURE FILEMANAGER(TASKINDEX) ; 
VALUE TASKINDEX; 
INTEGER TASKINDEX; 

BEGIN 

PROCEDURE READFILE; 
BEGIN 



END READFILE; 
PROCEDURE WRITEFILE; 
BEGIN 



END WRITEFILE; 

EXPORT READFILE, WRITEFILE; 
FREEZE ( TEMPORARY ) ; 
FILETITLES[ TASKINDEX] ;= "."; 
END FILEMANAGER; 
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PROCEDURE SELECTION ( USERSFILE , MCPCHECK ) ; 

VALUE USERSFILE; 

EBCDIC STRING USERSFILE; 

PROCEDURE MCPCHECK(T); TASK T; FORMAL; 

BEGIN 

INTEGER TASKINDEX; 
BOOLEAN FOUND; 

% LOOK AT ALL THE FILETITLES, CHECKING TO SEE IF A LIBRARY TASK 
% HAS ALREADY BEEN INITIATED FOR FILE TITLE USERSFILE. 

WHILE NOT FOUND AND (TASKINDEX LEQ 10) DO 

BEGIN 

IF FILETITLES [TASKINDEX] = USERSFILE THEN 

FOUND := TRUE 
ELSE 

TASKINDEX := *+l; 
END; 

IF NOT FOUND THEN 
BEGIN 

% A LIBRARY TASK DOES NOT EXIST FOR THIS FILE TITLE. 
WHILE NOT FOUND DO % FIND AN UNUSED TASK 
BEGIN 

TASKINDEX := 0; 

WHILE NOT FOUND AND (TASKINDEX LEQ 10) DO 
IF LIBTASKS[ TASKINDEX]. STATUS LEQ 0 THEN 

FOUND := TRUE 
ELSE 

TASKINDEX :=*+!; 
IF NOT FOUND THEN 

% WAIT A SECOND AND MAYBE A LIBRARY TASK WILL GO TO EOT. 

WAIT((1)); 
END; 

PROCESS FILEMANAGER( TASKINDEX) [ LIBTASKS[ TASKINDEX] ] ; 
WHILE L I BTASKSL TASK INDEX]. STATUS NEQ VALUE ( FROZEN ) DO 

WAIT((1)); 
FILETITLES [TASKINDEX] := USERSFILE; 
END ; 



MCPCHECK (LIBTASKS[ TASKINDEX] ) ; 
END SELECTION; 
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PROCEDURE READF I LE; 

BY CALLING SELECTION: 
PROCEDURE WRITEFILE; 

BY CALLING SELECTION; 

EXPORT READFILE, WRITEFILE; 
FREEZE ( TEMPORARY ) ; 
END. 



At library linlcage time; the procedure SELECTION is invoiced. SELECTION 
accepts two parameters, USERSFILE and MCPCHECK. 



USERSFILE is passed the value of the LIBPARAMETER attribute, which was 
assigned a value by the calling program. The SELECTION procedure checfcs 
to see if a library task has been initiated for the file specified by 
USERSFILE. If it has, then the calling program is linked to that task. 
If no library task exists for that file, then a new library task is 
initiated and the calling program is linked to it. 



Only one call is made on the SELECTION procedure per linkage; that is, 
all links to entry p)oints in this library are resolved during linkage. 
Therefore, any changes made to any library attributes after linkage is 
made are ignored. The attributes can be changed if the library is 
delinked. 



MCPCHECK is a procedure that is provided by the MCP and must be called 
before exiting the SELECTION procedure. The parameter to MCPCHECK is 
the task variable of the library task to which the calling program is to 
be linked. MCPCHECK verifies that the task is valid and complete. The 
actual library linkage is not performed until SELECTION has been exited. 
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Calling Prograup #1 



The following calling program invok.es the dynamic library 
OBJECT/FILEMANAGER/LIB previously described. In this example, the user 
has set the LIBPARAMETER attribute to "MYFILE", which is the name of the 
file to be accessed. At library linkage time, which occurs during the 
call on READFILE, the library procedure SELECTION is invoiced. All links 
to the library's entry points are resolved during linkage. Changes to 
the library attributes are ignored after linkage is made. However, the 
program can delink from the library and change the library attributes 
beforie any re-linking. 



BEGIN 

LIBRARY L ( TITLE="OBJECT/FILEMANAGER/LIB . " ) : 
PROCEDURE READFILE; 

LIBRARY L; 
PROCEDURE WRITEFILE; 

LIBRARY L; 

L. LIBPARAMETER := "MYFILE" ; 

READFILE; % LINKAGE IS MADE 



CANCEL(L) ; 

L. LIBPARAMETER := "OTHERFILE" ; 
WRITEFILE; 



% LINKAGE IS BROKEN 

% LIBPARAMETER CAN BE CHANGED 
% BECAUSE THE LIBRARY HAS BEEN 
% CANCELED. 

% LINKAGE IS MADE AGAIN AND NEW 
% VALUE OF LIBPARAMETER IS USED 



END. 
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Library ; OBJECT/SAMPLE/LIBRARY 



The following ALGOL library, compiled as OBJECT/SAMPLE/LIBRARY, provides 
its entry points directly. 



BEGIN 

ARRAY MSG[ 0:120]; 

INTEGER PROCEDURE FACT(N); 
INTEGER N; 

BEGIN 

IF N LSS 1 THEN ■ 

FACT := 1 
ELSE 

FACT :^ N " FACT(N - 1); 

END; % OF FACT 

PROCEDURE DATEANDTIME(TOARRAY.WHERE) ;. 
ARRAY TOARRAYL*]; 
INTEGER WHERE ; 

BEGIN 
REAL T; 
POINTER PTR; 

T := TIME( 7) ; 

PTR : = PO INTER ( TOARRAY , 8 ) + WHERE : 
CASE T. [5:6] OF 
BEGIN 

0: REPLACE PTR: PTR BY "SUNDAY, "; 
1: REPLACE PTR: PTR BY "MONDAY, " ; 
2: REPLACE PTR: PTR BY "TUESDAY. "; 
3: REPLACE PTR: PTR BY "WEDNESDAY, " ; 
4: REPLACE PTR: PTR BY "THURSDAY, "; 
5: REPLACE PTR:PTR BY "FRIDAY, "; 
6: REPLACE PTR: PTR BY "SATURDAY, "; 
END; 

REPLACE PTR BY T.[35:6] FOR 2 DIGITS, "-", 
T.[29:6] FOR 2 DIGITS, "-", 
T. [47:12] FOR 4 DIGITS, ", ", 
T.[23:6] FOR 2 DIGITS, ":", 
T.[17:6] FOR 2 DIGITS, ":", 
T. [11:6] FOR 2 DIGITS; 

END; % OF DATEANDTIME 
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EXPORT FACT,DATEANDTIME AS "DAYTIKE"; 
REPLACE POINTER (MSG, 8) BY 

" - SAMPLE LIBRARY STARTED", 

" " FOR 94; 
DATEANDT I ME ( MSG , 6 0 ) ; 
DISPLAY(MSG) ; 
FREEZE ( TEMPORARY ) ; 

REPLACE POINTER(MSG,8)+19 BY "ENDED 
DATEANDT I ME ( MSG , 60 ) ; 
DISPLAY ( MSG ) ; 
END. 



In this library program, two procedures are exported, making them entry 
points that can be called by calling programs. The two procedures, FACT 
and DATEANDTIME, are contained witnin the library program, so they are 
provided directly. 



In the EXPORT declaration, the procedure DATEANDTIME is given the name 
DAYTIME in an AS clause. In the directory built for this library, the 
name of this entry point will be DAYTIME. Calling programs must use the 
name DAYTIME to call this entry point. 



Library: OBJECT/SAMPLE/DYHAMICLIB 



The following ALGOL library, compiled . as OBJECT/SAMPLE/DYNAMICLIB , 
illustrates dynamic and indirect library linkage. . This library 
references the library OBJECT/SAMPLE/LIBRARY previously described. 



BEGIN 

TASK LIB1TASK,LIB2TASK; 

LIBRARY SAMLIB( TITLE="OBJECT/SAMPLE/LIBRARY . " ) : 

% ENTRY POINT PROVIDED INDIRECTLY 
INTEGER PROCEDURE FACT(N); 
INTEGER N: 

LIBRARY SAMLIB; 

% POSSIBLY CALLED BY THE SELECTION PROCEDURE 
PROCEDURE DYNLIBl: 

BEGIN % PRINTS DATE WITH TIME 

LIBRARY SAMLIB ( TITLE="OBJECT/SAMPLE/LIBRARY . " ) : 
% ENTRY POINT PROVIDED INDIRECTLY 
PROCEDURE DAYTIME(TOARRAY,WHERE.) : 
ARRAY TOARRAY[*]; 
INTEGER WHERE; 

LIBRARY SAMLIB; 
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EXPORT DAYTIME; 
FREEZE( TEMPORARY ) ; 
END; % OF DYNLIBl 

% POSSIBLY CALLED BY THE SELECTION PROCEDURE 
PROCEDURE DYNLIB2; 

BEGIN % PRINTS DATE WITHOUT TIME. 

% ENTRY POINT PROVIDED DIRECTLY 

PROCEDURE DAYT IME ( TOARRAY , WHERE ) ; 

ARRAY TOARRAYC*]; 

INTEGER WHERE; 

BEGIN 

REAL T; 

T := TIME(7); 

REPLACE POINTER( TOARRAY, 8) + WHERE 
BY T.[35:6] FOR 2 DIGITS, 

T.[29:6] FOR 2 DIGITS. 

T. [47:12] FOR 4 DIGITS; 
END; % OF DAYTIME 

EXPORT DAYTIME; 
FREEZE ( TEMPORARY ) ; 
END; % OF DYNLIB2 

% THE SELECTION PROCEDURE 

PROCEDURE THESELECTIONPROC(LIBPARSTR,NAMINGPROC) ; 

VALUE LI BPARSTR; 

EBCDIC STRING LIBPARSTR; 

PROCEDURE NAMINGPROC(LIBTASK) ; TASK LIBTASK; FORMAL; 
BEGIN 

IF LIBPARSTR EQL "WITH TIME" THEN 

BEGIN 

IF LIBITASK. STATUS NEQ VALUE ( FROZEN ) THEN 

PROCESS DYNLIBl [LIBITASK]; 
NAMINGPROC ( LIBITASK ) ; 
DISPLAYC *** CALLING DYNLIBl "); 
END 
ELSE 

BEGIN 

IF LIB2TASK. STATUS NEQ VALUE ( FROZEN ) THEN 

PROCESS DYNLTB2 [LIB2TASK]; 
NAMINGPROC ( LIB2TASK ) ; 
DISPLAYC *** CALLING DYNLIB2 "); 
END; 

END; % OF THE SELECTION PROCEDURE 
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% ENTRY POINT PROVIDED DYNAMICALLY 
PROCEDURE DAYTIME( TOARRAY, WHERE ) ; 
ARRAY TOARRAY[*J; 
INTEGER WHERE; 

BY CALLING THESELECTIONPROC ; 

EXPORT FACT, % PROVIDED INDIRECTLY 

DAYTIME; % PROVIDED DYNAMICALLY 
FREEZE ( TEMPORARY ) ; 
END. 



Calling Program #2 



The following calling program invokes OBJECT/SAMPLE/DYNAMICLIB, the 
library described previously. 



BEGIN 

LIBRARY MYLIB(TITLE="OBJECT/SAMPLE/DYNAMICLIB."); 
INTEGER PROCEDURE FAKTORIAL( N ) ; 
INTEGER N; 

LIBRARY MYLIB(ACTUALNAME="FACT" ) ; 

PROCEDURE DAYTIME( A , W ) ; 
ARRAY A[*]; 
INTEGER W; 

LIBRARY MYLIB; 

REAL T; 

ARRAY DATIME[ 0:120]; 

MYLIB.LIBPARAMETER := "WITH TIME"; 
REPLACE POINTER(DATIME[0] ,8) BY 

"13 FACTORIAL IS ", 

FAKT0RIAL(13) FOR 12 DIGITS, 

ft _ «1 . 

9 

DAYTIME(DATIME[*] ,40) ; 
DISPLAY! DATIME[ 0] ) ; 
END. 



In this program, the declaration of the library entry point FAKTORIAL 
specifies that the ACTUALNAME of the entry point is FACT. In the 
template built for the library MYLIB, the name of this entry point is 
FACT, so for linkage to occur, the directory of the library 
OBJECT/ SAMPLE/DYNAMICL IB must contain an entry point named FACT. 
However, within the program, the entry point is referred to as 
FAKTORIAL. 



2 DMSII INTERFACE 



An interface to Burroughs Data Management System II (DMSII) is provided 
in the BDMSALGOL (Burroughs Data Management System ALGOL) language. The 
BDMSALGOL language is based on Burroughs Extended ALGOL and contains 
extensions that enable a programmer to declare and use databases. These 
extensions provide the following capabilities: 

Invoicing a database 

- Manipulating data through data management statements 

- Using database items through a mapping syntax 
Processing exceptions 



Programs written in the BDMSALGOL language must be compiled with the 
BDMSALGOL compiler. Typically, this compiler is titled 
"SYSTEM/BDMSALGOL" . 



The extensions to ALGOL that make up the BDMSALGOL language are 
described in this chapter. 
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9 .1 INVOKING A DATABASE 

DATABASE DECLARATION 



Lik.e all variables, a database must be declared in a BDMSALGOL program 
before it is referenced. However, a DATABASE declaration is unlike 
other declarations in that it is actually an invocation of a database 
that has already been fully described and declared in a Data and 
Structure Definition Language (DASDL) program. 



If the compiler control options LIST and LISTDB, are both TRUE, all 
invoked structures, together with the record formats, item and key 
descriptions, database titles, and other pertinent information, are 
written on the program listing. The LISTDB option should be used, and 
the resulting information studied carefully, when database application 
programs are being developed. For more information on the LISTDB 
option, see "BDMSALGOL Compiler Control Options" in this chapter. 



See also 

<listdb option> 772 



Syntax 

<database declaration > 

— DATABASE — <database reference> — t 

< database reference) 

— >. 

I I I I 

I- < internal name> = -i |- < logical database name> OF -I 

>-<database name> > 

i I 
I- ( TITLE = "<database title>" ) -| 



>■ 



i i I I 
I- : <data set reference> 1 



-<set reference>- 
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< internal name> 

— <BDMS identifier >— I 

<lQgical database name > 

— <BDMS identif ier>~ I 

<database naine> 

— <BDMS identif ier>— i 

<database title> 

A properly formed <f lie title constant> (as defined in the "Work 
Flow Language (WFL) Reference Manual") that has only one node; that 
IS, that contains no slashes (/). 



<data set reference> 

— — ■ — <data set naine>- ■ I 

I .1 I I 

|- < internal naniie> = -| I- ( <set part> ) -I 

<data set name> 

— <BDMS identif ier>— I 

<set part > 

ALL — — . — I 

i ■ . I ■ ■ 

j- NONE — — ^^_____.__| 

i ■ 1 
I |< , j 

i I . .11 

i- SET <set reference>- — I 

i i ■ 

I- SETS -I 

<set reference > 

. <set name>~ i 

|- < internal name> = -! 
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<set name> 

— <BDMS identifier > — | 



See also 

<BDMS identifier> 691 



Semantics 



A DATABASE declaration declares a database and specifies which database 
or which parts of a database are to be invoiced. If no <data set 
reference> parts and no <set reference^ parts are specified in a 
DATABASE declaration, then all data sets and all sets for each data set 
are implicitly invoiced. 



The <internal name> construct assigns an internal name by which a 
database, data set, set, or subset is known within the program. When an 
internal name is specified, all subsequent references to the structure 
must use this internal name. 



A database, data set, set, or subset can be invoiced more than once; 
however, the external name (the name in the description file) can be 
used to reference only one invocation of a structure. Internal names 
must be used to provide unique names for all other invocations of a 
structure. The default internal name of a structure is its external 
name. 



By using the internal names in the <data set reference> or the <set 
reference> constructs, multiple record areas or set paths can be 
established. Thus, several records of a single data set can be 
manipulated simultaneously. 



The <logical database name> construct allows the program to reference a 
:ogical database. A program can invoke structures selectively from a 
logical database, or it can invoke the entire logical database. 
Selective invocations are specified in the same manner as for physical 
databases; however, the choice of structures is limited to those 
structures included in the logical database. 



The <database name> 
invoked. 



gives the external name of 



the database to be 
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The <database titlex construct is an alphanumeric string. The usercode, 
if any, is the usercode of the control file. The single node of the 
title is the directory node under Which the database files are stored. 
The family name, if any, is the family name of the control file. The 
default database title is the external name of the database plus the 
control file usercode. and family name, if any, from the description 
file. When opening the database, the Master Control Program (MCP) 
builds the control file title from the database title specified in the 
declaration. See the "DMSII DASDL Reference Manual" for a discussion of 
control files and description files. 



This title equation is used only at run time, and cannot be used at 
compile time to specify the title of the database description file. The 
primary use of the <database title> construct is for modeling. See the 
"DMSII DASDL Reference Manual" for a description of modeling. 



The <data set reference> construct specifies a particular data set from 
the declared database. If a <data set reference) is used, only the 
specified structures are invoked. A data set reference must be used to 
invoke a disjoint data set. 



The <data set name> construct gives the external name of the data set to 
be invoiced. 



The <set part> construct invok.es specific sets from the data set 
declared in the <data set reference> that contains it. If the <set 
part> construct is omitted, all sets are implicitly invoked. If the 
<set part> construct is used, all sets (ALL), no sets (NONE), or only 
the specified sets are invoked. 



The <'set reference> construct establishes a set that is not implicitly 
associated with any particular record area. To load a record area using 
the set name specified in a set reference. The "<data set> VIA" form of 
the <selection expression> must be used. 



The <setname> construct gives the external name of the set to be 
invoked. 
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Pragmatics 

Only disjoint structures can be explicitly invoked. Embedded data sets, 
sets, and subsets are always implicitly invoked if their master data 
sets are (implicitly or explicitly) invoked. When a data set containing 
an embedded set associated with a disjoint data set is invoked, or a 
data set containing a link to another, disjoint data set is invoked, then 
a path is established. However, the user must invoke the disjoint data 
set if it is to be used. 



Multiple invocations of a structure provide multiple record areas or set 
paths, or both, so that several records of a single data set can be 
manipulated simultaneously. Selecting only needed structures for UPDATE 
and INQUIRY provides better use of system resources; a smaller Structure 
Information Block (SIB) is required, and fewer files can be opened. 



If remaps are declared in DASDL, they are invoked in the same manner as 
conventional data sets. 



Examples: Simple Database 



The following examples apply to the database DB described by the 
following DASDL description: 

D DATA SET ( 

K NUMBER (6); 
R NUMBER (5): 

); 

51 SET OF D KEY K: 

52 SET OF D KEY R; 



DATABASE DB: D 

This declaration establishes one current record area for the data 
set D, one path for the set SI of data set D, and one path for the 
set S2 of data set D. The statements "FIND SI", "MODIFY SI", "FIND 
S2", and "MODIFY S2" automatically load the data into the D record 
area. 
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DATABASE DB: D, X=D( NONE) 

This declaration establishes two current recprci areas (D and X) and 
two paths (SI and S2). The sets SI and S2 are Implicitly associated 
with the D record area. The set part NONE prevents a set from being 
associated with X. Thus, the statements "FIND SI" and "FIND S2" 
load the D record area. The statements "FIND X VIA SI" and "FIND X 
VIA S2" must be executed to load the X record area using a set. 



DATABASE DB: D, X=D 

This declaration shows how multiple current record areas and 
multiple current paths can be established. The statement "FIND SI 
OF D" loads the D record area without disturbing the path SI OF X, 
and the statement "FIND SI OF X" loads the X record area without 
disturbing the path SI OF D. Qualification of SI is necessary to 
distinguish the paths. 



DATABASE DB: D ( SET SI ) , X=D (SET SI), Y=D (NONE) 

This declaration shows how mor& current record areas than paths can 
be established. Three record areas (D, X, and Y) are established, 
but only two paths (SI OF D, and SI OF X). The program must execute 
the statement "FIND Y VIA SI OF D", "FIND Y VIA SI OF X", or "FIND 
Y" to load the Y record area. 



DATABASE DB: X=D (SET SI), Y=D (SETT=S1) 

This declaration uses the < set part > syntax to explicitly associate 
a set with a given work area. The statement "FIND SI" loads the X 
record area, and the statement "FIND T" loads the Y record area. SI 
and T both use the same key. 



DATABASE DB: D; SY=S1 

This declaration shows how a set reference can be used to establish 
a set that is not implicitly associated with any particular record 
area. The statement "FIND D VIA SY" must be executed to load a 
record area using the set SI. 
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Example: Invoking Disjoint Data Sets 



The following example shows when a data set reference must be used to 
invoke disjoint data sets. The database DB is described by the 
following DASDL description: 

F DATA SET ( 

FI NUMBER (4); 

); 

E DATA SET ( 

EK NUMBER (8); 

); 

D DATA SET ( 

A NUMBER (6); 

SE SET OF E KEY EK; 

LINK REFERENCE TO F; 

); 



If data set references are not specified to invoke E and F, as in the 
declaration 

DATABASE DB: D 

the paths are established by invoking the embedded set SE and the link, 
item LINK. However, these paths cannot be used unless data set 
references for E. and F are specified to establish record areas 
associated with these paths, as in the declaration 



DATABASE DB: D,E,F 
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Example: Invoicing a Logical Database 



In this example, the database EXAMPLEDB is described by the following 
DASDL description: 

Dl DATA SET ( . 
A REAL; 
B NUMBER (5): 
C ALPHA ( 10) ; 

): 

SIA SET OF Dl KEY IS A; 
SIB SET OF Dl KEY IS (A,B,C); 
D. DATA SET ( 
X FIELD (8); 
Y NUMBER (2): 
Z REAL; 
E DATA SET ( 
VI REAL; 
V2 ALPHA (2) ; 
): 

SE SET OF E KEY IS VI; 
)• 

S2A SET OF D2 KEY IS X; 

S2B SET OF D2 KEY IS (X.Y.Z); 

LDBl DATABASE ( Dl ( NONE ) , D2 ( SET S^S2A ) ) ; 

LDB2 DATABASE ( Dl ( SET S1=S1B ) , D2(SET S2=S2B)); 

LDB3 DATABASE (D=D2); 
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The following BDMSALGOL program invoices the logical database LDBl of 
EXAMPLEDB. The program can see data sets Dl and D2, but not any of the 
sets associated with Dl, and can see only set S2A associated with D2. 
S2A appears as set S. The output produced by the LISTDB compiler 
control option is shown with the program. 



$ SET LIST LISTDB 
BEGIN 

DATABASE LDBl OF EXAMPLEDB : 
*DATABASE TITLE: EXAMPLEDB ON DISK 
*01 Dl: DATA SET (#2) 



INVOKED SETS: 



*02 
*02 
*02 
*01 



RECORD ITEMS: 
REAL A 

INTEGER B: NUMBER (5) 
STRING C: ALPHA (10) 



D2: DATA SET (#5) 



INVOKED SETS: 

S (#8, AUTOMATIC), KEY = X 



*02 
*02 
*02 
*02 



RECORD ITEMS: 

REAL X: FIELD (8) 
INTEGER Y: NUMBER (2) 
REAL Z 

E: DATA SET (#6) 



* 



INVOKED SETS: 

SE (#7, AUTOMATIC), KEY = VI 



RECORD ITEMS: 



*03 REAL VI 

*03 STRING V2: ALPHA (2) 

*DESCRIPTION TIMESTAMP: 06/09/82 @ 17:30:34 

END. 
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DATABASE EQUATION 



The term "database equation" refers to three separate operations: 

1. Specification of database titles during compilation. 

2. Work Flow Language (WFL) database equation to override 
compiled-in titles. (For more information, refer to the "DMSII 
User Language Interface Software Operation Guide" for the WFL 
syntax.) 

3. Run-time manipulation of database titles. 



To take advantage of the fe-entrance capability of the Accessroutines , 
the user must be able to specify the title of a database at run time. 
Database equation allows the database title to be specified at run time, 
and allows access to databases tnat are stored under other usercodes and 
on families that are not visible to a task. 



Database equation Is operationally similar to file equation. WFL 
database equation overrides the specification of a database title in the 
DATABASE declaration, and run-time modification of a database title 
overrides both WFL database equation and the DATABASE declaration. 
However, database equation differs from file equation in that a run-time 
error results if a BDMSALGOL program attempts to assign a value to or 
examine the TITLE attribute of a database while it is open. For an 
explanation of the TITLE database attribute, refer to "DATABASE 
Declaration" in this chapter. 



The following syntax shows how the database TITLE attribute can be 
manipulated during program execution. 



Syntax 

<database attribute assignment statement > 

— <string-valued database attribute>~ := — <string expression>- 

<string-valued database attributed' 

~<internal name> — . — TITLE — i 



See also 

< internal name> 
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Semantics - 



The string expression must evaluate to a string in the form of a 
database title. 



The <string-valued database attribute> construct can be used anywhere a 
string expression is valid. 



Database titles never end with a period, and a replace pointer-valued 
attribute statement is not valid for making assignments to database 
titles. 



NOTE 

BDMSALGOL programs employing database 
equation must be compiled with a Mark 3.2 
or later BDMSALGOL compiler. 



Example 



BEGIN 

STRING S; 

DATABASE MYDB ( TITLE="LIVEDB" ) : 
OPEN UPDATE MYDB; 

CLOSE MYDB: 

MYDB. TITLE ;= "(UC)TESTDB ON TESTPACK"; 
OPEN UPDATE MYDB; 

CLOSE MYDB; 

S := TAKE ( MYDB. TITLE,5) ; 
END. 



In this example, the first EDMS "OPEN" statement opens the database with 
the title "LIVEDB", whose data and control files are stored under the 
user's directory. The second OPEN statement Invokes the database 
"TESTDB", whose files are stored on TESTPACK under the usercode UC. 
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9.2 BDMSALGQL BASIC LANGUAGE CONSTRUCTS 



The following constructs are used within the DATABASE declaration and in 
data management statements and functions. These sections describe the 
forms of names for databases, data sets, sets, items, and so on; input 
mapping and output mapping; and the selection expression. 



9.2.1 EDMS IDENTIFIERS AND QUALIFICATION 

Naming conventions in DASDL for databases and their components follow 
COBOL rules: that is, names can contain hyphens, and some item and 
structure names can require qualification. Although both of these 
conventions contradict normal AI-GOL naming rules, they must be allowed 
in programs that declare and use databases. 

EDMS IDENTIFIERS 



The identifier of a database, data set, set, item, and so on is in the 
form of a <BDMS identifier>. 



Syntax 

<BDMS identif ier> . 

! I 

<identifier> 1 



Semantics 



The <BDMS identif ier> construct must, be fewer than 64 characters long. 



Examples 



If a database is described in DASDL by the following: 

D-S DATA SET ( 

A-1 NUMBER (5): 
A-2 NUMBER (10); 
): 
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then in a BDMSALGOL program, the data set D-S and the items A-1 and A-2 
can be- referenced as in the following examples: 

INTEGER I; 
. GET D-S (I := A-1) ; 
PUT D-S (A-2 := I) :■ 



IDENTIFIERS OF OCCURRING ITEMS 



If an item is declared in the DASDL description to have an OCCURS 
clause, then its identifier must be subscripted to denote which of its 
occurrences is to be used. 



Syntax 



< subscripted, BDMS identifier> 

|< , I 

I I 

— <BDMS identifier> — [ /arithmetic expression> ] — I 



Semantics 



The leftmost arithmetic expression denotes the subscript of the 

outermost OCCURS clause that affects the item, the next arithmetic 

expression to the right denotes the subscript of the next outermost 
OCCURS clause, and so on. 
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Examples 



If items A and B are described in DASDL as follows: 

DS DATA SET ( 
G GROUP ( 

A ALPHA (.10) ; 

B NUMBER (4) OCCURS 3 TIMES; 
> 

OCCURS 2 TIMES; 

); 

there are two occurrences of A, denoted 

A[l] ■ , A[2] ■ 

and there are six occurrences of B, denoted 

B[l,l] B[2,l] 
B[l,2] B[2,23 
B[l,3] B[2.3] 

QUALIFICATION 



Database item names need not be unique within a database. Qualification 
is used to distinguish between database items with the same names. 



Syntax 

<qualif icatidn> 

I < — OF ■ . 

■ ■ ■ I ■ 

< EDMS i den t i f ier > • — — -■ 

. ! I 
|-<subscripted EDMS identifier >-i 



Semantics 



An item name can be qualified by the name of any structure that 
physically contains the item. Any number of qualification names desired 
can be used, provided that the result is unique. If Improper or 
insufficient qualification is used, a syntax error is given. 
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A set name -can be qualified by the name of the data set it spans. 



A group name can be used to qualify an item it contains. 



Qualification need not be used if the unqualified name is unique. 
Qualification must be used whenever there is ambiguity. A variable name 
can be declared with the same name as a database item in BDMSALGOL 
without requiring qualification of the item name. 



Examples 



If a database is described in DASDL as follows: 

DSl DATA SET ( 
N NUMBER (4); 

); 

DS2 DATA SET ( 
N NUMBER (4); 

); 

then the following BDMSALGOL statements indicate how qualification is 
used to distinguish between the two data items named N. 

SET N OF DSl TO NULL; 
SET N OF DS2 TO NULL; 
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9.2.2 REFEREMCING DATABASE ITEMS 



The record area (user work area) is not directly accessible to a 
BDMSALGOL program. Instead, an exjslicit mapping between database data 
items and program variables must be specified whenever access to those 
items is desired. 



Mappings specify the source and destination of data to be transferred 
into or out of a user work area. Mappings are of two kinds: input 
mappings and output mappings. 



Example 



If a database is described in DASDL by the following: 

Dl DATA SET ( 

A NUMBER (5); 

X NUMBER (5) OCCURS 3 TIMES; 

); 

then the items of data set Dl can be referenced in the following ways: 
INTEGER B,yi ,Y2,Y3; 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUE OF DATABASE ITEM A 
% TO THE LOCALLY DECLARED INTEGER B. 
GET Dl (B := A); 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUE OF LOCALLY DECLARED 
% INTEGER B TO THE WORK AREA FOR Dl. 
PUT Dl (4 := B); 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUES OF ALL THREE 
% OCCURRENCES OF X INTO Yl, Y2 , AND Y3. 
GET Dl (Yl := X[l] , 

Y2 := X[2], 

Y3 := X[3]); 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUES OF LOCALLY DECLARED 
% INTEGERS Yl, Y2 , AND Y3 INTO THE THREE OCCURRENCES OF DATABASE 
% ITEM X. 

PUT Dl (X[l] := Yl, 
X[2] :== Y2, 
X[3] := Y3); 
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INPUT MAPPING 

Input mappings can be used with the "retrieval" statements DELETE, FIND, 
GET, EDMS "LOCK," and MODIFY. Input mappings transfer the value of a 
DASDL-declared data item to a program variable. If the data item is an 
occurring item (that is, if the item is declared in DASDL with an OCCURS 
clause), it must be subscripted appropriately. 

Syntax 

< input mapping> 

,< , I 

I I 
<input assignment> | 

< input assignment) 

<arithmetic variable) — := <count item name) I 

I |-<field item name) — I 

I |-<numeric item name) — — -I 

I I -<populat ion item name) — ! 

I |-<real item name) | 

I l-<record type item name)-| 

|-<Boolean variable) — := — <Boolean item name) '■ | 

|-<pointer variable) — := <alpha item name) ■ 1 

1 I 

I -< group item name) — ■ — | 

I I 
|-<numeric item name) | 
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<alpha item name> 

< Boolean Item name> 

< count item name> 

<f ield item name> 

< group item name> 

<numeric item name> 

<population item riame> 

<real item name> 

< record type item name> 

^^<BDMS identifier > I 

I I 
I -<subscripted EDMS identifier >- I 



See also 

<arithmetic variable> ............ 225 

<BDMS identifier > 691 

<Boolean variable>. ......... 234 

<pointer variable) 241 

<subscripted EDMS identifier? . . 692 



Semantics 



An arithmetic variable can be an integer, real, or double simple or 
subscripted variable. A Boolean variable can be a Boolean simple or 
subscripted variable. A pointer variable can be a pointer identifier or 
an element of a character array. 



<arithmetic variable> := < field item name> 



If the field item is defined to contain N bits, then N bits are stored 
right- justified in the arithmetic variable. All other bits are set to 
zero. 



<arithmetic variable> := <numeric item name> 
<arithmetic variable> := <real item name> 



The numeric item or real item is converted into a binary value with a 
scale factor of zero (its true value). The value is stored in the 
arithmetic variable as in a normal arithmetic assignment; that is, it is 
integer ized or extended, if necessary. An error termination results if 
necessary integerization is not possible, as in normal ALGOL arithmetic 
assignments. 
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<arithinetlG variable> := <count item name> 
<arithmetic variable> := <populatlon item name> 
<arithmetic variable> := <record type item name> 



The value of the count item, population item, or record type item is 
placed in the arithmetic variable. Use of a count item, population 
item, or record type item allows read-only access to the particular 
field. Those items cannot be changed directly. They are accessed only 
through input mappings, and cannot be used in output mappings. 



<Boolean variable > := < Boolean item name> 



The Boolean variable is assigned the truth value (the value of bit 0) of 
the Boolean item. Bits 1 through 47 of the Boolean variable are set to 
zero. 



<pointer variable) := <alpha Item name> 
<pointer variable > := < group item name> 



If the alpha item or group item is defined to contain N EBCDIC 
characters, then N characters are transferred to the location pointed to 
by the pointer variable. A fault results if one of the following 
conditions is satisfied: 

1. The pointer is uninitialized. 

2. The pointer is not an EBCDIC (8-bit) pointer. 

3. Fewer than N character positions remain in the referenced 
array. 



A group item is treated as if it were an alpha item; all subordinate 
data items are transferred without change. 
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<polnter variable> :== <niuneric item name> 



This assignment takes advantage of the fact that a numeric item is 
maintained as a hexadecimal string. If the numeric item is defined to 
contain N digits (including the sign digit, if specified), the N 
hexadecimal characters are transferred to the location pointed to by the 
pointer variable. A fault results if one of the following conditions is 
satisfied: 

1. The pointer is uninitialized. 

2. The pointer is not a hexadecimal (4-bit) pointer. 

3. Fewer than N hexadecimal character positions remain in the 
referenced array. 
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OITTPUT MAPPING 



Output mappings can be used with the "storage" statements PUT and STORE. 
Output mappings transfer the value of a program variable or expression 
to a DASDL-declared data item. If the data item is an occurring item 
(that is, if the item is declared in DASDL with an OCCURS clause), it 
must be subscripted appropriately. 



Syntax 



< output mapping > 



<output assignment > | 

<output assignment> 

<field item name> := — <arithmetic expression> I 

I I .1 

i-<numeric item name>-| I 

I I I 

|-<real item name> | I 

|-<Boolean item name> — := — <Boolean expression > I 

|-<alpha item name> := <pointer expression> | 



< 



< group item name>~ 



|-<string literal> 



< numeric item name> 



See also 



<alpha item name> . 
< Boolean item name> 
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< field item name> 

< group item name> 



< numeric item name> 
< numeric item name> 
<real item name>. . 
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Semantics 



An arithmetic expression used in an output mapping can be single 
precision or double precision. 



< field item name > := <arithmetic expression> 



If the field item is defined to contain N bits, then the N rightmost 
bits of the value of the arithmetic expression are assigned, unaltered, 
to the field item. Care should be taken if the arithmetic value is real 
or double precision, (that is, not integer) because the value might be 
normalized, in which case the N rightmost bits would not contain the 
value. 



<numeric Item name> := <arithmetic expression> 
<real item name> := <arlthmetlc expression > 



The value of the arithmetic expression is scaled appropriately and 
assigned to the numeric item or real item. If the numeric item or real 
item is unsigned, the absolute value of the arithmetic expression is 
used. 



< Boolean item name> s= < Boolean expression > 

The truth value (the value of bit 0) of the Boolean expression is 
assigned to the Boolean item. Bits 1 through 47 of the value of the 
Boolean expression are ignored. 



<alpha item name> := <pointer expression> 
<group item name > := <pointer expression> 



If the alpha item or group item is defined to contain N EBCDIC 
characters, then N characters are transferred from the location pointed 
to by the pointer expression to the alpha or group item. A fault 
results if any of the following conditions is satisfied: 

1. The value of the pointer expression is an uninitialized 
pointer. 

2. The value of the pointer expression is not an EBCDIC (8-bit) 
pointer. 

3. Fewer than N character positions remain in the referenced 
array. 
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< numeric item name> := < pointer expression> 



This mapping takes advantage of the fact that a numeric item is 
maintained as a hexadecimal string. If the numeric item is defined to 
contain N digits (including the sign digit, if specified), then N 
hexadecimal characters are transferred to the numeric item from the 
location pointed to by the pointer expression. The user is responsible 
for ensuring that the string is a valid representation of the item 
declared in DASDL; that is, the proper sign and numeric characters, in 
the proper format, must be used. A fault results if any of the 
following conditions is true: 

1. The value of the pointer expression is an uninitialized 
pointer. 

2. The value of the pointer expression is not a hexadecimal 
(4-bit) pointer. 

3. Fewer than N hexadecimal character positions remain in the 
referenced array. 



<alpha item name> := <string literal> 
<group item name> := <string literal> 



The string literal is transferred to the alpha item or group item. The 
string literal must be EBCDIC, or a syntax error -results. If the string 
literal is shorter than the alpha item or group item, it is extended 
with blank fill characters on the right. If the string literal is 
longer than the alpha item or group item, the excess characters on the 
right are truncated. 



<numeric Item name> := <strlng literal > 



The string literal is transferred to the numeric item. The string 
literal must be a hexadecimal string and must contain the exact number 
of characters for the numeric item or a syntax error results. The user 
is responsible for ensuring that the string literal is a valid 
representation of the numeric item. 
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9,2.3 THE SELECTION EXPRESS lOH 



A selection expression is used in DELETE, FIND, EDMS "LOCK," and MODIFY 
statements to identify a particular record in a data set. 



Syntax 



< select ion express ion > 



<set selection expression > 

I 



-<data set>~ VIA -| |-<link. itein>- 
-<data set> — •■ 

- FIRST - 

- LAST ~ 

- NEXT — 

- PRIOR - 



<data set> 

— <qualif ication>- 



<set selection expression) 

. <set> — ■ 

I i 11;. 

FIRST ~l |-<subset>- I. |- AT <k.ey condition>- 



- LAST — 1 

I 

- NEXT — i 

I 

- PRIOR - i 



WHERE - 



<set > 



— <qualif i cat ion > — 
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< subset > 

— <qualif ication > — I 

<k.ey condition> 

I < AND I 

I I I I 

I |<- OR --I I 

I I 

<numeric relation> I 

I 

-<alphanumeric relation) ! 

I 

( — <k.ey condition) — ) -| 

I 

- NOT -I 

<numeric relation) 

<numeric item identifier) <relational operator) 

I I 
|-<field item identifier) I 

I I 
|-<real item identifier) I 



> <arithmetic expression)— 

I I 
|-<pointer expression) 1 



<numeric item identifier) 
<field item identifier) 
<real item identifier) 

— <BDMS identifier) — 



<alphanumeric relation) 

— <alpha item identifier) — <relational operator 

> <constant string expression) 

I . I 
i-<pointer expression) 1 

<alpha item identifier) 
— <BDMS identifier) — j 
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<link item> 

— <qualif ication> — ! 



See also 

<BDMS identifier > . . . . . 

<constant string expression> 
<qualif i cation > ...... 

< relational operator > . . . 



Semantics 
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A set selection expression selects the record to which the set path 
refers. A HOTFOliND exception is returned if the record has been deleted 
or if the path does hot refer to a valid current record. 



The construct "<data set > VIA" identifies the record area and current 
path to be affected if the desired record is found. This option is used 
for link items and for sets that are not implicitly associated with the 
data set. 



The <linfc itein> form is used to specify a link item defined in the DASDL 
description. The record to which the link item refers is selected. An 
exception is returned if the link item is NULL. 



The <data set> form is used to selept the record to which the data set 
path refers. A NOTFOUND exception is returned if the record has been 
deleted or if the path does not refer to a valid current record. 



The word "FIRST" selects the first record in the specified data set, 
set, or subset. If a key condition is also specified, the first record 
of the specified set or subset that satisfies the key condition is 
selected. FIRST is assumed by default. 



The word "LAST" selects the last record in the specified data set, set, 
or subset. If a key condition is also specified, the last record of the 
specified set or subset that satisfies the key condition is selected. 



The word "NEXT" selects the next record relative to either the set path 
(if a set or subset is specified) or the data set path (if a data set is 
specified). If a key condition Is also specified, the next record 
(relative to the current path) of the specified set or subset that 
satisfies the key condition is selected. 
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The word "PRIOR" selects the prior record relative to either the set 
path (if a set or subset is specified) or the data set path (if a data 
set is specified). If a key condition is also specified, the prior 
record (relative to the current path) of the specified set or subset 
that satisfies the key condition is selected. 



In a set selection expression, the <set> or <subset> construct selects 
the record to which the set or subset path refers. A NOTFOUND exception 
is returned if the record has been deleted or if the path does not refer 
to a valid current record. 



The words "AT" or "WHERE" indicate that a key condition follows. AT and 
WHERE are synonyms. 



A key condition specifies values used to locate specific records in a 
data set referenced by a particular set or subset. If the name of a 
data item specified in a key condition is not unique, the compiler 
provides implicit qualification through the set or subset of the set 
selection expression. Qualification of the item name by the name of the 
data set that contains the item, while not necessary, is allowed; 
however, the compiler handles this qualification as documentation only. 



The expressions that appear in a key condition cannot contain any 
transaction item references. 



A numeric relation specifies a particular numeric, field, or real item 
and compares it to the value of an arithmetic expression or a pointer 
expression. The pointer expression must evaluate to a hexadecimal 
pointer . 



An alphanumeric relation specifies a particular alpha item and compares 
it to the value of a constant string expression or a pointer expression. 
The pointer expression must evaluate to an EBCDIC pointer. The constant 
string expression must be an EBCDIC string. 



Examples 



These examples use the database described in DASDL by the following: 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (5); 
); 

S SET OF D KEY IS N, DATA A; 
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LOCK S WHERE N NEQ 10 



This LOCK statement acts. upon the first S where the value of N is 
not equal to 10. 



FIND S AT A = "ABC" AND (N = 50 OR N = 90) 



This Statement locates the first S where A is equal to the string 
"ABC" and either N is equal to 50 or N is equal to 90. 
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9.3 BDMSALGOL STATEMENTS 



The following data management statements allow a BDMSALGOL program to 
use and manipulate the data in a database. These statements are 
described in this section. 



<assign statement) 
<begintransaction statement > 
<BDMS Close statement > 
< create statement > 
<delete statement > 
<dmterminate statement) 
<endtransaction statement) 
<find statement) 
<BDMS free statement) 
< generate statement) 
<get statement) 



<insert statement) 
<BDMS lock, statement) 
<midtransaction statement) 
<modify statement) 
<BDMS open statement) 
<put statement) 
<recreate statement) 
< remove statement) 
<BDMS set statement) 
<store statement) 
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ASSIGN STATEMEWT 



The ASSIGN statement establishes a link from one record in a data set to 
another record of the same data set. It assigns either the value of the 
current record in a data set or the value in a link, item to another link, 
item. The value of the second link item, called the target link item, 
then allows the system to locate the record in the referenced data set. 



The ASSIGN statement is effective immediately, therefore the record 
containing the target link item does not need to be stored unless data 
items of this record have been modified. 



Syntax 

<assign statement > 

— ASSIGN — <data set> TO — <.link item>- 

i 1 

I- NULL I 



t I 
i-<link item>-| 



|-<exception handling>- 



See also 

<data set> 703 

<exception handling) 768 

<link item) 705 



Semantics 



The data set must be declared in DASDL as the object data set of the 
target link item. A value that points to the current record in the data 
set is assigned to that link item. 



If the <data set> form is used, the current path of the specified data 
set must be valid, but the record need not be locked. If the data set 
path is not valid, an exception occurs. 
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If the word "NULL" is used, the relationship between records is severed 

by assigning a NULL value to the target link item. If that link item is 

already NULL, this option is ignored. A FIND, EDMS "LOCK," or MODIFY 
statement on a NULL link item results in an exception. 



If the ASSIGN Statement specifies two link items, the value of the first 
link item is assigned to the target link item. The first link item must 
be declared in DASDL to have the same object data set as the target link 
item and be the same type of link (counted link, self-correcting link, 
symbolic link, unprotected link, or verified link). If the link items 
are counted links, the count item is automatically updated, even if the 
record that is referenced is locked by another program. 



The current path of the data set containing the first link must be 
valid, but the record need not be locked. If the data set path is not 
valid, an exception occurs. 



After the ASSIGN statement has executed, the target link item points to 
either the current record in the specified data set or to the record 
pointed to by the first link item. 



The current path of the data set containing the target link item must be 
valid, and the record must be locked; otherwise, an exception occurs. 



If the target link item references a disjoint data set. then that link 
item can point to any record in the data set. If the target link item 
references an embedded data set, then only certain records in the data 
set can be referenced. In this case, the record being referenced must 
be owned by the record containing the target link item or by an ancestor 
of the record containing this link item. (An ancestor is the owner of 
the record, the owner of the owner, and so forth.) 



If an exception is returned, the ASSIGN statement is not completed, and 
a NULL value is assigned to the target link item. 
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Eb&ample 



If the database EXAMPLEDB is described In DASDL as follows; 

D DATA SET ( 
A ALPHA (3) ; 
B BOOLEAN; 

L IS IN E VERIFY ON N; 

): . ■ 

S SET OF D KEY A; 

E DATA SET ( 

N NUMBER (3); 

R REAL; 

): 

T SET OF E KEY N; 

then the following BDMSALGOL program uses the ASSIGN statement to assign 
the value of the current record of data set E to link, item L. 



BEGIN 

FILE CARD_FILE(KIND=READER) ; 
DATABASE EXAMPLEDB; 
EBCDIC ARRAY X[ 0:2]; 
INTEGER Y; 

OPEN UPDATE EXAMPLEDB; 

WHILE NOT READ(CARD„FILE,<A3,I3>^X,Y) DO 

BEGIN 

FIND S AT A = X; 
FIND T AT N = Y; 
ASSIGN E TO L; 
END ; 

CLOSE EXAMPLEDB: 
END. 
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BEGINTRAHSACTION STATEMENT 



The BEGINTRANSACTION statement places a program in transaction state. 
This statement can be used only with audited databases. 



The BEGINTRANSACTION statement performs the following steps in order: 

1. Captures the restart data set if AUDIT is specified 

2. Places a program in transaction state 



Refer to the "DMSII User Language Interface Software Operation Guide' 
for further details regarding audit and recovery. 



Syntax 

<begintransaction statement > 

~ BEGINTRANSACTION ■ > 

I I 
I- ( — <transaction record variable > — ) -| 

I I 
I- AUDIT I 

I I 
I- NOAUDIT • -—I 

>-<restart data set> ■ 1 

I I 
|-<exception handling>-| 

<transaction record variable> 

The <transaction record varlable> syntax is defined in the "DMSII 
Transaction Processing System (TPS) Programmer's Manual." 

<restart data set> 

— <qualif ication> — I 



See also 

<exception handling> . 768 

<qualif ication> ....... 693 
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Semantics 



If the <transaction record variable> construct is used, it is the formal 
input transaction record variable, and NOAUDIT is the default action. 



The word "AUDIT" causes the restart area to be captured. The path of 
the specified restart data set is not altered when the restart record is 
stored. AUDIT is the default action. 



The word "NOAUDIT" causes the restart area to not be captured. The 
< restart data set> construct specifies the restart data set to be 
updated. 



An exception is returned if the BEGINTRANSACTION statement is attempted 
v^hile the program is in transaction state. 



If any exception is returned, the program is not placed in transaction 
state. If an ABORT exception is returned, all records that the program 
had locked are freed. 



Pragmatics 

Deadlock can occur during execution of a BEGINTRANSACTION statement. 



Any attempt to modify an audited database when the program is not in 
transaction state results in a fault. The BDMSALGOL statements that 
modify databases are the following: 

ASSIGN statement 
DELETE statement 
GENERATE statement 
INSERT statement 

REMOVE statement 
STORE statement 
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Ex2unple 



If the database DBASE is described in DASDL as follows: 

OPTIONS ( AUDIT ) ; 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3); 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the 
BEGINTRANSACTION statement can be used. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY MY_A[0:2]; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N := 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 
BEGINTRANSACTION R; 
STORE D; 

ENDTRANSACTION R; 
MY_N := * + 1; 
END; 

WHILE NOT READ(CARD_FILE,<I3,A3>,MY_N,MY_A[0]) DO 
BEGIN 

LOCK S AT N = MY_N; 
BEGINTRANSACTION R; 
PUT D (A := MY_A[0]); 
STORE D; 

ENDTRANSACTION R; 
END; 
CLOSE DBASE; 
END. 
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EDMS CLOSE STATEKENT 



The EDMS "CLOSE" statement closes a database when further access is no 
longer required. 



The CLOSE statement performs the following steps in order: 

1. Closes the database 

2. Frees all lock-ed records 



Syntax 



<BDMS close statement> 

— CLOSE ~<database identifier> 

l-<exception handling>-i 



<database identifier> 

~<BDMS identif ier>— I 



See also 

<EDMS identifier> . 
<exception handling> 



Semantics 



The database identifier specifies the database to be closed. If the 
database was declared to have an internal name, this internal name is 
the database identifier. If the database does not have an internal name 
but is a logical database, then the logical database name is the 
database identifier. If the database does not have an internal name and 
it is not a logical database, then the database name is the database 
identifier. 



An exception is returned if the specified database is not open. 



691 
768 
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Pragmatics 



Use of the CLOSE statement is optional; the system closes any open 
database at the time a program terminates. 



The CLOSE statement is the only BDMSALGOL statement in which the status 
word has meaning when no exception is indicated. Therefore, after a 
CLOSE statement, the status word should be examined by the program and 
appropriate action taken, whether or not an exception is returned. An 
ABORT exception can be obtained in this manner. 



Exeunple 



If the database DBASE is described in DASDL as follows: 

OPTIONS (AUDIT) ; 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 

A ALPHA (10); 

B BOOLEAN; 

N NUMBER (3); 

); 

S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR; 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 



then the following BDMSALGOL program shows how to use the CLOSE 
statement to close DBASE. 
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BEGIN ^ 
FILE CARD_FILE(KIND=READER) , 

PRINT.FI LE ( KIND=PRINTER ) ; 
DATABASE DBASE; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[ 0:2]; 

OPEN INQUIRY DBASE; 

WHILE NOT READ (CARD_FILE,<I3>.MN) DO 

BEGIN 

FIND S AT N = MN; 

GET D (MA[03 :~ A. MB := B); 

IF MB THEN 

GET D (MR ;« N) 
ELSE 

MR : = 0 ; 

WRITE(PRINT_FILE, <I3," 'SAS ," " ,L5> 'V " ,E4.2> , 
MN.MA[0],MB,MR); 

END; 
CLOSE DBASE; 
END. 
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CREATE STATEMENT 



The CREATE Statement initializes the user work area of a data set 
record. 



The CREATE statement performs the following steps in order: 

1. Frees the current record of the specified data set 

2. Reads any specified expression to determine the format of the 

record to be created 

3. Initializes data items to one of the following values: 

a. The DASDL-declared INITIAL VALUE, if present 

b. The DASDL-declared NULL, if present 

c. The default NULL 



SyntaLK 



< create statement > 

— CREATE — <data set> > 

I I 
|- ( — <arithmetic expression>~ ) ~| 

> _ I 

i I 

|-<exception handling>-| 



See also 

<data set> 703 

<exception handling> 768 



Semantics 



The <data set> construct specifies the data set to be initialized. The 
current path of the data set is not changed until a subsequent STORE 
statement has completed successfully. 



The arithmetic expression specifies the type of record to be created. 
This arithmetic expression is required when a variable-format record is 
created; otherwise, it must not appear. 
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An exception is returned if the arithmetic expression does not represent 
a valid record type. 



Pragmatics 



Normally, the CREATE statement is. eventually followed by a STORE 
statement, which places the newly created record into the data set. 
However, if a subsequent STORE operation is not desired, the CREATE 
statement can be nullified by a subsequent CREATE, DELETE, FIND, 
EDMS "FREE," EDMS "LOCK," MODIFY, or RECREATE Statement. 



The CREATE statement sets up only a record area. If the record contains 
embedded structures, the master record must be stored before entries can 
be created in the embedded structures. If only entries in the embedded 
structure are created (that is, if items in the master are not altered), 
the master need not be stored a second time. 



Exeunple 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 

A ALPHA (10) ; 

B BOOLEAN; 

N NUMBER (3): 

); 

S SET OF D KEY N; 



then the following BDMSALGOL program shows how a record of data set D 
can be created and stored. 
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BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY X[0:9]; 
INTEGER Y,Z; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A10,Il,I3>,X[0],y,Z) DO 
BEGIN 
CREATE D: 

PUT D (A := X[0]): 
IF Y = 1 THEN 

PUT D (B := TRUE); 
PUT D (N ;= Z) ; 
STORE D; 
END ; 
CLOSE DBASE; 
END. 
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DELETE gTATgWgNT 



The DELETE statement is identical to the FIND statement except that if a 
recorci is found, it is locked and then deleted. 



The DELETE statement performs the foil lowing steps in order: 

Frees the current record, unless the selection expression is 
the name of the data set and the current record is locked. In 
that case, the locked status is not altered. 

Alters the current path to point to the record specified by the 
selection expression, and locks this record. 

Transfers that record to the user work area. 

Removes the record from all. sets and automatic subsets, but not 
from manual subsets. 

Removes the record from the data set. 



If the record is found but cannot be deleted, an exception is returned 
and the DELETE statement terminates, leaving the current path pointing 
to the record specified by the selection expression. 



If a set selection expression is used and the record is not found, then 
an exception is returned and the set path is changed and invalid. It 
refers to a location between the last key less than the condition and 
the first key greater than the condition. A set selection expression 
using NEXT or PRIOR can be done from this point provided keys greater 
than and less than the condition exist. The current path of the data 
set, the current record, and the current paths of any other sets for 
that data set remain unchanged. 



It is the responsibility of the programmer to ensure that no manual 
subset refers to the record being deleted. 



1. 

2. 

3. 
4. 

5. 
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Syntax 



<delete statement > 



— DELETE — < select ion expression > 



> 



|-<exception handling>-| 



> 



|- ( — < input mapping> — ) -| 



See also 



<exception handling>. 
< input mapping > . . . 
<selection expression> 



768 
696 
703 



Semantics 



The selection expression identifies the record to be deleted. 



An exception is returned and the record is not deleted if the record has 
counted links pointing to it, or if the record contains a non-NULL link 
or a non-empty embedded structure. 



Pragmatics 



When the DELETE statement completes, the current paths still refer tc 
the deleted record. Therefore, a FIND statement on the current record 
results in a NOTFOUND exception; however. "FIND NEXT" and "FIND PRIOR" 
statements are still appropriate. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3) ; 
B BOOLEAN ; 
N NUMBER (3); 
R REAL; 

); 

S SET OF D KEY N; . 

then the following BDMSALGOL program demonstrates the use of the DELETE 
statement to delete a record of the data set D where item N is equal to 
the value of X. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ ( CARD_FILE . < 1 3 > , X ) DO 

DELETE S AT N = X; 
CLOSE DBASE; 
END. 
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DMTERMINATE STATEMENT 



The DMTERMINATE statement aborts the current action. When an exception 

occurs that the program does not handle, the DMTERMINATE statement can 
be called to produce the same results as if the exception-handling 
syntax had not been specified in the statement; that is, the DMTERMINATE 
statement causes the program to terminate with a fault. 



Syntax 



<dmterminate statement? 

— DMTERMINATE <Boolean identifier > I 



Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
N NUMBER (3); 
R REAL; 

); 

S SET OF D KEY N; 



l-<integer identifier >- I 



|-<real identifier I 



See also 



<Boolean identifier > 
<integer identifier> 
<real identifier? . 



55 
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then the following BDMSALGOL program shows an example of the use of the 
DMTERMINATE statement. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
BOOLEAN RSLT ; 
REAL RRSLT = RSLT; 
INTEGER X; 

OPEN UPDATE DBASE; 
FIND FIRST D :RSLT; 
IF RSLT THEN 
BEGIN 

DISPLAY ("D IS EMPTY DATA SET"); 
DMTERMINATE (RSLT); 
END 
ELSE 

WHILE NOT READ (CARD_FILE,< 13 >,X.) DO 
BEGIN 

DELETE S AT N - X : RSLT; 

IF RRSLT. DMERROR = NOTFOUND THEN 

DMTERMINATE ( RSLT ) ; 
END; 
CLOSE DBASE; 
END. 
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ENDTRANSACTION STATEMENT 

The ENDTRANSACTION statement takes a program out of transaction state. 
This statement can be used only with audited databases. 

The ENDTRANSACTION Statement performs the following steps in order: 

1. Captures the restart area if AUDIT is specified 

2. Forces a syncpoint if the SYNC option is specified 

3. Implicitly frees all records of the database that the program 



Refer to the "DMSII User Language Interface Software Operation Guide" 
for information regarding audit and recovery. 

Syntaix 

<endtransaction statement > 



has locked 



— ENDTRANSACTION 



> 



- ( — <endtransaction parameters> — ) -| 



- AUDIT 



- NOAUDIT 



>- <restart data set> 



I- SYNC -| |-<exception handling>-| 



<endtransaction parameters/ 



— <transaction record variable> — 



> 



>-< saveoutput procedure identifier? 



<saveoutput procedure identifier:* 



— <procedure identifier >- 
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See also 



<exception handling>. . . . . 

<procedure identifier >. . . . 

< restart data set>. . . . . . 

<transaction record variable) 



768 
165 
712 
712 



Semantics 



If the <endtransaction parameters > form is used, the transaction record 
variable is the formal input transaction record variable. The 
saveoutput procedure identifier is the name of the SAVEOUTPUT formal 
procedure. For more information about the SAVEOUTPUT procedure, refer 
to the "DMSII Transaction Processing System (TPS) Programmer's Manual." 



The word "AUDIT" causes the restart area to be captured. The path of 
the restart data set is not altered when the restart record is stored. 



The word "NOAUDIT" causes the restart area to not be captured. NOAUDIT 
is the default action. 



The <restart data set> construct specifies the restart data set to be 
used. 



The word "SYNC" forces a syncpoint. 



An exception is returned if an ENDTRANSACTION statement is attempted and 
the program is not in transaction state. 



Records are freed in all cases. If an exception occurs, the transaction 
is not applied to the database. 
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Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS (AUDIT): 

R RESTART DATA SET ( 

P ALPHA (10) ; 
Q ALPHA (100); 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3); 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the ENDTRANSACTION 
statement can be used. 



BEGIN 

F I LE C ARD_F I LE ( K I ND=READER ) ; 
DATABASE DBASE; 
EBCDIC ARRAY MY_A[0:2]; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N := 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 
BEGINTRANSACTION R: 

STORE D; 

ENDTRANSACTION R: 
MY_N := * + 1: 
END ; 

WHILE NOT READ(CARD_FILE, <I3,A3> ,MY_N,MY_A[0] ) DO 
BEGIN 

LOCK S AT N = MY_N ; 
BEGINTRANSACTION R; 
PUT D (A := MY_A[0]); 
STORE D: 

ENDTRANSACTION R; 
END; 
CLOSE DBASE; 
END. 
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FIND STATEMENT 



The FIND statement transfers a record to the user work area associated 
with a data set or global data. 



The FIND statement performs the following steps in order: 

1. Frees a lock.ed record in the data set if a data set is 
specified in the FIND statement, or frees a locked record in 
the associated data set if a set is specified in the FIND 
statement 

2. Alters the current path to point to the record specified by the 
selection expression or database name 

3. Transfers that record to the user work area 



Syntax 



<find statement> 



FIND <selection expression> ~ > 

II- I 

I |-<database identifier > I 

I i 1 

I- FIND KEY OF — <set selection expression>- | 

> _ J. I 

I , II.. I 

|-<exception handling>-| |~ ( — <input mapping> — ) -| 

See also 

<database identifier> „ 715 

<exception handling>. 768 

< input mapping > , . 696 

<selection expression>. . . . . „ 703 

<set selection expression >. 703 
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Semantics 



The < selection expression > form is used to specify the record to be 
transferred to the user work area. 



The <database identifier> form is used to specify the global data record 
to be transferred to the user work, area associated with the global data. 
If no global data was described in DASDL for the database, a syntax 
error occurs. 



The form "FIND KEY OF <set selection expression)" moves the key and anv 
associated data (as specified in DASDL) from the key entry to the user 
work area. A physical read is not performed on the data set: 
consequently, all items in the record area that do not appear in the key 
entry retain whatever value they had before the FIND statement. The 
current path of the data set is not affected. 



If an exception is returned, the record is not freed. 

An exception is returned if no record satisfies the selection 
expression. 



If a set selection expression is used and the record is not found, then 
an exception is returned and the set path is changed and invalid. It 
refers to a location between the last key less than the condition and 
the first key greater than the condition. A set selection expression 
using NEXT or PRIOR can be done from this point provided keys greater 
than and less than the condition exist. The current path of the data 
set, the current record, and the current paths of any other sets for 
that data set remain unchanged. 



To access data items, input mapping is required. 
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Examples 



FIND FIRST EMP AT DEPT-NO = 1019 :RSLT; 
IF RSLT THEN 

P0P-EMPS[1019] :== 0; 



FIND EMP AT EMP-NG == SSN :RSLT; 
IF RSLT THEN 

ERR.OUT ( INV_EMP_NO_ERR ) ; 



FIND NEXT EMP :RSLT; 
IF RSLT THEN 

GO NO_MORE_EMP ; 



FIND FIRST GVR-65 AT DEPT-NO = 1019 :RSLT: 
IF RSLT THEN 

POP-OVR-65[1019] := 0; 
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EDMS FREE STATEMENT 



The EDMS "FREE" statement unlocks the current record. 



A FREE statement can be executed after any operation. If the current 
record is already free, or if no current record is present, the FREE 
statement is ignored. 



The FREE statement can be used to unlock a record that the user 
anticipates cannot be implicitly freed for a relatively long time. A 
FREE statement executed on a record allows other programs to lock the 
record. 



Synteuc 



<BDMS free statement > 

— FREE <data set> 

I II I 

|-<database identifier >- | |-<exception handling>-| 



See also 

<data set> 

<database identifier) 
<exception handling). 



Semantics 



The <data set> form is used to specify the data set whose current record 
is to be unlocked. The data set path and current record area remain 
unchanged. 



The <database identifier) form is used to specify the global data record 
to be unlocked. The data set path and current record area remain 
unchanged. 



If an exception is returned, the state of the database remains 
unchanged. 



703 
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Pragmatics 



The FREE statement is optional in many situations because DELETE, FIND, 
EDMS "LOCK," and MODIFY statements cari free a record before they 
execute. FIND, LOCK, and MODIFY statements that use sets or subsets can 
free the locked record only if a new record is successfully retrieved. 
Otherwise, the previously locked record remains locked. In general, an 
implicit FREE statem€?nt is performed, if necessary, during any operation 
that establishes a new data set; path. 



Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN ; 
N NUMBER ( 3 ) ; 
R REAL; 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates the use of the FREE 
statement to unlock the current record of data set D. 



BEGIN 

FILE CARD_FILE(KIND=READER) ; 
DATABASE DBASE ; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<I3> ,X) DO 
BEGIN 

LOCK S AT N = X; 

IF DMTEST(A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END; 
CLOSE DBASE; 
END. 
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GENERATE STATEMENT 

The GENERATE statement creates an entire subset in one operation. All 
subsets must be disjoint bit vectors. 

The GENERATE statement performs the following steps in order: 

1. Deletes all the records from the subset to be generated if it 
is not already empty 

2. Assigns either a NULL value, the records in another subset, or 
a combination of the records in two other subsets to the subset 
that is generated 

Syntax 

< generate statement > 

— GENERATE ~< subset >— = NULL > 



I -<subset > 



- AND <subset >- I 



- OR ~i 



l-<exception handling >-! 



See also 



<exception handling> 
<subset > 
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Semantics 



The <subset> to the left of the equal sign (=) is the name of the subset 
to be generated. This subset must be a manual subset, which must be a 
disjoint bit vector. 



The word "NULL" assigns a NULL value to the generated subset. 



If <subset> follows the equal sign, it is the name of the subset whose 
records are to be assigned to the generated subset. This subset must be 
of the same data set as the generated subset, and it must be a disjoint 
bit vector. 



If to the right of the equal sign there are two <subset>s joined by the 
operation AND, OR, +, or -, then these two subsets are to be combined in 
the specified manner. The result is then assigned to the generated 
subset. The two subsets must be of the same data set, and must be 
disjoint bit vectors. 



The operator "AND" specifies that the intersection of the two subsets is 
to be assigned to the generated subset. The intersection is defined to 
be all the records in the first subset that are also in the second 
subset . 



The operator "OR" specifies that the union of the two subsets is to be 
assigned to the generated subset. The union is defined to be all the 
records that are in either the first subset or the second subset. 



The operator "+" specifies that the exclusive OR of the two subsets is 
to be assigned to the generated subset. The exclusive OR consists of 
the records in either the first subset or the second subset, but not the 
records that appear in both subsets. 



The operator specifies that the subset difference of the two subsets 
is to be assigned to the generated isubset. The subset difference is 
defined to be the records in the first isubset that are not in the second 
subset. 
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Exeunple 



If the database DBASE is described in DASDL as the following: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN: 
N NUMBER (3); 
R REAL; 

); 

X SUBSET OF D WHERE (N GEQ 21 AND NOT B) BIT VECTOR; 
Y SUBSET OF D WHERE (R LSS 1000) BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program shows how the GENERATE statement 
can be used to assign all the records that are in both X and Y to subset 
Z. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY S[0:2]; 
INTEGER T,U,V; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A3,I1,I3,I4> ,S,T,U.V) DO 
BEGIN 
CREATE D; 
PUT D (A := S); 
IF T = 1 THEN 

PUT D (B := TRUE); 
PUT D ( N : = U ) ; 
PUT D (R := V): 
STORE D; 
END; 

GENERATE Z = X AND Y; 
CLOSE DBASE; 
END. 
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GET STATEMENT 



The GET statement is used to transfer information from the user work, 
area associated with a data set or global data record into program 
variables or arrays. 

The GET statement does not access the database; it assumes that prior 
database operations have loaded the proper record or data items into the 
user work area. 



Syntax 



<get statement > 

— GET — -<data set> — — ( — < input mapping> — ) — I 



The <data set> construct is used to transfer information from the user 
work, area associated with this data set into a program variable or 
array . 



The <database identifier) is used to transfer information from the user 
work area associated with the global data record into a program variable 
or array. 



Pragmatics 

No exceptions are associated with the GET statement. However, if the 
database containing the referenced data set or global data record has 
not been opened at the time execution of the GET statement is attempted, 
the program terminates with a fault. 



|-<database identifier >- I 



See also 



<data set > . . . . . . 

< database identifier> 
< input mapping > . . . 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN: 
N NUMBER (3): 
R REAL; 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the GET statement 
can be used to assign current values of data items to program variables 
and arrays. 



BEGIN 

FILE CARD_FILE(KIND=READER) , 

PRINT_FILE (KIND= PRINTER ) ; 
DATABASE DBASE; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0:2]; 

OPEN INQUIRY DBASE; 

WHILE NOT READ(CARD_FILE.<I3>,MN) DO 
BEGIN 

FIND S AT N = MN; 

GET D (MA[0] A, MB B); 

IF MB THEN 

GET D (MR := R) 
ELSE 

MR := 0; 

WRITE(PRINT_FILE. <I3, ",A3," ".LS," ",E4.2>, 
MN,MA[0],MB,MRj; 

END; 
CLOSE DBASE; 
END. 
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INSERT STATEMENT 



The INSERT statement places a record into a manual subset. 



The INSERT statement performs the following steps in order: 

1. Inserts the current record of the specified data set into the 
specified subset 

2. Alters the set path for the specified subset to point to the 
inserted record 



Syntax 



< insert statement > 

— INSERT — <data set> — INTO — <subset> ■■ 

I I 
|-<exception handling>-l 



See also 

<data set> 

<exception handling> 
<subset> . 



Semantics 



The <data set> construct specifies the data set whose current record is 

inserted into the subset specified by <subset>. The path of the 
specified data set must be the object data set of the specified subset. 



The path of the specified data set must refer to a valid record: if not, 
an exception is returned. 



The subset must be a manual subset, and it must be a subset of the 
specified data set. 



An exception is returned in the following cases: 

1. If duplicates are not allowed for the specified subset 
record to be inserted has a k.ey identical to that of 
currently in that subset 
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2. If the specified subset is embedded in a data set that does not 
have a valid current record 

3. If "LOCK TO MODIFY DETAILS" was specified in DASDL and the 
current record is not locked 



Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
N NUMBER (3); 
R REAL; 
): 

X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program shows how the INSERT statement can 
be used to place the current record of data set D into subset X. 



BEGIN 

DATABASE DBASE; 
BOOLEAN RSLT; 
INTEGER MN; 

OPEN UPDATE DBASE: 
SET D TO BEGINNING; 
FIND NEXT D :RSLT: 
WHILE NOT RSLT DO 
BEGIN 

GET D (MN := N); 
IF MN > 10 THEN 

INSERT D INTO X; 
FIND NEXT D :RSLT; 
END ; 
CLOSE DBASE; 
END. 
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EDMS LOCK STATEMENT 



The EDMS "LOCK" statement is similar to the FIND statement, except that 
if a record is found, it is locked against a concurrent modification by 
another user. 



"LOCK" and "MODIFY" are synonyms. 



If the record to be locked has already been locked by another program, 

the system performs a contention analysis. In this case, the present 
program waits until the record is unlocked. However, if a wait would 
result in a deadlock, all records locked by the program with the lowest 
priority involved in the deadlock are unlocked, and the operation in 
that program terminates with a DEADLOCK exception. 



The LOCK statement performs the following steps in order: 

1. Frees a locked record in the data set if the LOCK statement 
specifies a data set, or frees a locked record in the 
associated data set if the LOCK statement specifies a set 

2. Alters the current path to point to the record specified by the 
selection expression or database identifier 

3. Locks the specified record and then transfers that record to 
the user work area 



Syntax 



<BDMS lock statement > 

LOCK <selection expresslon>— > 

III II I 

I- MODIFY -| |-<database identifier > — I |-<exception handling>-| 

> : _ . . 1 

I I 
1- ( — < input mapping> — ) -I 



See also 

<database identifier> 715 

<exception handling>. 768 

< input mapping > 69b 

<selection expression/. 703 
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Semantics 



The selection expression is used to specify the record to be locked. 

The database identifier is used to specify the global data record to be 
locked. 



If an exception is returned, the record is not freed. 



If a LOCK statement using a set selection expression returns an 
exception, the current path of the specified set is invalid. However, 
the current path of the data set, the current record, and the current 
paths of any other sets for that data set remain unaltered. 



To access data items, the < input mapping > construct must appear. 



Pragmatics 



Because no other user can lock, a record once it is locked, a record must 
be freed when it is no longer required to be locked. A record can be 
freed explicitly by a EDMS "FREE" statement or implicitly by a 
subsequent CREATE, DELETE, FIND, EDMS "LOCK," or RECREATE statement on 
the same data set. 



Example 



If the database DEASE is described in DASDL as follows: 

D DATA SET ( 

A ALPHA (3); 
E BOOLEAN; 
N NUMBER (3); 
R REAL; 
): 

X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates the use of the LOCK 
statement to lock records of subset X. 



BEGIN 

DATABASE DBASE; 
BOOLEAN RSLT 
INTEGER MN; 

OPEN UPDATE DBASE; 
SET X TO BEGINNING; 
LOCK NEXT X :RSLT; 
WHILE NOT RSLT DO 
BEGIN 

GET D (MN := N); 
IF MN <= 10 THEN 
BEGIN 

REMOVE D FROM X; 
DELETE D; 
END 
ELSE 

BEGIN 

Pl/T D (B := TRUE) 

STORE D; 

END: 

LOCK NEXT X :RSLT; 
END; 
CLOSE DBASE; 
END. 
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MIDTRANSACTION STATEMENT 



The MIDTRANSACTION Statement causes the compiler to generat?^ ; ; ; J i > on 
the given procedure immediately before the call on the DMS procraure in 
the Accessroutines. 



Refer to the "DMSII Transaction Processing System (TPS) Programmer's 
Manual" for more information on transaction processing. 



Syntax 



<midtransaction statement > 

— MIDTRANSACTION — ( — <midtransaction parameters > — ) > 

>-<restart data set> 1 

I 1 
t-<exception handling>-| 



<midtransaction parameters> 

— <transaction record variable> — , > 

>-<saveinput procedure identifier> ! 



<saveinput procedure identifier > 
— <procedure identifier > — i 



See also 

<exception handling> 768 

<procedure identifier > 165 

<restart data set> . 712 

<transaction record variable> 712 



Semantics 



The transaction record variable is the formal input transaction record 
variable. 



The saveinput procedure identifier is the name of the SAVEINPUT formal 
procedure . 
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The <restart data set> construct specifies the restart data set to be 
used. 

Example 

MIDTRANSACTION ( TRIN , SAVEINPUT ) RDS : RSLT ; 
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MODIFY STATEMENT 



' s ec t i ori / " MOD I FY" a m ' "* 'ir^^^y^^ 
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mm OPEN STATEMENT 



The EDMS "OPEN" statement opens a database for subsequent access and 
specifies the access mode i. 



The OPEN statement performs the following steps in order: 

1. Opens an existing database. Appropriate "NO FILE" messages are 
displayed if files required for invoiced structures are not 
present in the system directory. 

2. Performs an implicit CREATE statement on the restart data set. 
Syntax 



<EDMS open statement > 

— OPEN -< database identifier. 

I ■ I 
I- INQUIRY ~ I 



>• 



I i 

I- TRUPDATE -I 
I I 
I- UPDATE I 



<exception handling >- 



See also 

<database identifier> . . ... . . 715 

<exception handling>. 768 



Semantics 



The word "INQUIRY" enforces read-only access to the database. This 
option is specified when no update operations are to be performed on the 
database. An exception is returned if the following EDMSALGOL 
statements are used when the database has been opened with the INQUIRY 
option : 

ASSIGN statement GENERATE statement 

BEGINTRANSACTION Statement INSERT statement 
DELETE statement . REMOVE statement 

ENDTRANSACTION statement STORE statement 
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The data management system does not open any audit files if the "OPEN 
INQUIRY" form has been used by all programs accessing the database. 



The word "UPDATE" allows the program to modify the database being 
opened. The UPDATE option must be specified in order to use the 
BDMSALGOL statements listed above under the INQUIRY option. UPDATE is 
the default option. 



The word "TRUPDATE" must be specified in order to use the MIDTRANSACTION 
statement or the < transaction record varlable> form of the 
BEGINTRANSACTION or ENDTRANSACTION Statements. 



The database identifier specifies the database to be opened. 



If an exception is returned, the state of the database remains 
unchanged. 



An exception is returned if the database is already open. 



Pragmatics 



An OPEN statement must be executed before the first access of the 
database; otherwise, the program terminates with a fault. 



Examples 



If the database DBASE is described in DASDL as follows: 

OPTIONS ( AUDIT ) ; 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 

A ALPHA (10); 
B BOOLEAN; 
N NUMBER (3); 
): 

S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR; 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 
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then the following BDMSALGOL program demonstrates the use of the OPEN 
statement with the INQUIRY option to open database DBASE and perform 
read-only actions on the database. 



BEGIN 

FILE CARD_FILE(KIND=READER), 

PRINT_FILE(KIND=PRINTER) ; 
DATABASE DBASE; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0: 2]; 

OPEN INQUIRY DBASE; 

WHILE NOT READ(CARD_FILE, <I3> ,MN) DO 
BEGIN 

FIND S AT N = MN; 

GET D (MA[0] := A,MB := B); 

IF MB THEN 

GET D (MR := N) 

ELSE . 

MR := 0; 

WRITE(PRINT_FILE, <I3," •\A3," ".LS." ",E4.2>, 
MN,MA[0] ,MB,MR); 

END; 
CLOSE DBASE ; 
END . 



The following BDMSALGOL program demonstrates the use of the OPEN 
statement with the UPDATE option to open database DBASE and perform 
update actions on the database. 



BEGIN. 

FILE CARD_FILE(KIND=READER) ; 
DATABASE DBASE ; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<I3>,X) DO 
BEGIN 

LOCK S AT N - K: 

IF DMTEST(A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END: 
CLOSE DBASE; 
END . 
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PUT STATEMENT 



The PUT statement transfers information from program expressions into 
the user work, area associated with a data set or global data record. 



The PUT statement does not update the database; a subsequent STORE 
statement must be executed to place the data in the user work, area into 
the database. 



Any number of PUT statements can be used to update items before a STORE 
statement is executed. 



Syntax 



<put statement > 

— PUT <data set> ( — <output mapping> — ) ~| 



The <data set> form is used to transfer information associated with this 
data set into the user work area. 



The <database identifier> form is used to transfer information 
associated with the global data record into the user work. area. 



Pragmatics 



|-<database identif ier >- I 



See also 



<data set.> 

<database identif ier > 
< output mapping >. . . 
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Semantics 



No exceptions are associated with the PUT statement. However, if the 
database containing the specified data set or the specified database has 
not been opened, the program terminates with a fault. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN ; 
N NUMBER (3); 
R REAL; 

) : 

X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates how the PUT statement 
can be used to assign values to data items. 



BEGIN 

FILE CARD_FILE(KIND=READER) : 
DATABASE DBASE; 
EBCDIC ARRAY S[0:2]: 
INTEGER T,U,V; 

OPEN UPDATE DBASE: 

WHILE NOT READ(CARD_FILE, <A3, 11,13, I4> ,S[0] ,T,U.V) DO 

BEGIN 

CREATE D; 

PUT D <A := S); 

IF T = 1 THEN 

PUT D (B := TRUE); 

PUT D (N := U,R := V) ; 

STORE D; 

END; 
CLOSE DBASE; 
END . 
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RECREATE STATEMENT 



The RECREATE statement partially initializes the user work area. All 
data items remain unaltered; however, control items such as links, sets, 
counts, and data sets are unconditionally set to NULL. 



For variable-format records, the record type supplied must be the same 
as that supplied in the CREATE statement that created the record. If 
not, the subsequent STORE statement results in a DATAERROR subcategory 
4. 



The RECREATE statement performs the following steps in order: 

1. Frees the current record of the specified data set 

2. Reads any specified arithmetic expression to determine the 
format of the record to be created 

5. Unconditionally sets links, sets, counts, and data sets to NULL 



Syntax 



<recreate statement > 

— RECREATE — <data set> ~ ■ — > 



Semantics 



The <data set> construct specifies the data set to be initialized. 



I- ( — <arithmetic expression > — ) -i 



> 



l-<exception handling>-| 



See also 



<data set>. .... 
< exception handling > 
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The arithmetic expression specifies a value indicating the type of 
record to be created. This arithmetic expression is required when a 
variable-format record is created: otherwise, it must not appear. 
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An exception is returned if the arithmetic expression does not represent 
a valid record type. 

Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS(AUDIT) ; 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 

A ALPHA (10); 
B BOOLEAN; 
N NUMBER ( 3 ) ; 

) ; 

S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR; 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates how the RECREATE 
statement can be used to partially initialize a record of data set D. 



BEGIN 

FILE CARD_FILE( KIND-READER ); 
DATABASE DBASE; 
EBCDIC ARRAY X[0;93; ' 
INTEGER Y.Z: 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE.<A10,I1,I3>,X[0],Y,2) DO 
BEGIN 
CREATE D; 

PUT D (A := X[0] ) ; 
IF Y = 1 THEN 

PUT D (B := TRUE); 
PUT D (N := Z): 
STORE D; 
RECREATE D; 
PUT D (N := Z+1); 
STORE D; 
END; 
CLOSE DBASE; 
END. 
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REHQVE STATEMENT 

The REMOVE statement is similar to the FIND statement, except that if a 
record is found, it is locked and then removed from the specified 



The REMOVE statement performs the following steps in order: 

1. Frees the current record 

2. Alters the current perth to point to the record specified by 
CURRENT or the data set 

3. Locks the previously found record and then removes the record 
from the specified subset 

If an exception occurs after step 2, the current path is invalid. 

If an exception occurs after step 3, the operation terminates, leaving 
the current path pointing to the record specified by CURRENT or by the 
data set. 

Syntax 

<remove statement > 

-- REMOVE CURRENT FROM ~ < subset >——■ > 



subset . 



i-<data set>- 



|-<exception handling>- 



See also 



<data set > . . . . . 
<exception handling) 
< subset > 
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lt^'i^pg:i:"'!Z\5p.]kE}iT''*- removes the current record from the specified subset. 
'y'"6ption is specified, ' the subset must have a valid current 
Jlf; 'it i^oe's hot' have a valid current record, an exception is 

pi^ll^fS^i^:^^^^ from the specified 

tf|H&. '''I^j^coxd ' ,r#'f^^^ current path. An exception is 

, fefe'^if'* ^:h4"'rec6rd' is not . in the subset. 

l);^;lr'f^b'i;e|li*;|G6^ subset from which a record is to be 

i '^r^^ie 'su'lD&et '.must^ ma-nual subset of the specified data set. 

I||r#l3^j^_^|^^ii;^?^j^ a: data set, the data set must have a 

bU^'if'^fet*'^ jf-ecord defined and that record must be locked; if not, an 

VJ^^'i^ptlort' is/return'ed.. 



'retiirlied in the following cases: 



•"\|a4t>i-<2^^tio'n 'Is retur 

■f;M£S«-'r'i^iJr^^^ specified and the specified subset does not have 

*^V&$\''i'^^^ record ■ 



fe/fM>^'Uata set 



ls'-;S;P^cified and the record is not in the subset 



^^iiillip^iifl 



if led subset is embedded in a data set. and the data 



^^M^^t^^it'yjiMB'. current 



record defined and locked 



sjtatement Is executed, the current paths still refer to 
^i'i|Jt|#d',\,jT^corc3. 'Therefore,' a subsequent FIND statement on the 
%f,Wp}*"t,^'c'03f]d results in a "'^'Tlr.^TTXTT^ ^, — — t, . — itr^-rvTi^ 



NOTFOUND exception. However, the "FIND 
forms of the FIND statement give valid results. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 

A ALPHA ( 3) ; 
B BOOLEAN ; 
N NUMBER (3); 
R REAL; 

); 

SS SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates the use of the REMOVE 
statement to lock, and remove the record of data set D that is referenced 
by the current path from the subset SS. 



BEGIN 

DATABASE DBASE; 
BOOLEAN RSLT; 
INTEGER MN; 

OPEN UPDATE DBASE; 
SET SS TO BEGINNING; 
FIND NEXT SS :RSLT; 
WHILE NOT RSLT DO 
BEGIN 

GET D (MN := N); 
IF MN < 10 THEN 

REMOVE D FROM SS; 
FIND NEXT SS :RSLT; 
END; 
CLOSE DBASE; 
END. 
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BDMS SET STATEMENT 



The BDMS "SET" statement alters the current path or changes the value of 
an item in the current record. Only the record area is affected. The 
data set is not affected until a subsequent STORE statement is executed. 



The SET statement performs the following steps in order; 

1. Frees the current path of the data set, set, or subset 

2. Performs one of the following actions: 



a. Alters the current path of the data set, set, or subset to 
point to the beginning or the ending of the indicated 
structure 

b. Alters the set or subset path to point to the current path 
of another data set 

b. Assigns a NULL value to a particular item 



Syntax 

<BDMS set statement > 

— SET <set>— TO <data set> — <exception handling> I 



-<subset >- 1 



I- BEGINNING — I 



- ENDING 



-<data set>~ TO BEGINNING -\ 



I - ENDING I 



-<item>-- TO — NULL 



<item> 



— <qualif ication> — I 



See also 



<data set>. .... 
<exception handling> 
<qualif ication> . . 

<set> . . 

< subset > 
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Semantics 



The constructs <data set>, <set>, or <subset> following the word "SET" 
specify the data set, set, or subset, respectively, whose path is 
altered. 



If "TO <data set>" is specified, the current path of the set or subset 
is altered to point to the current record of the specified data set. 



If "TO BEGINNING" is specified, the current path of the set, subset, or 
data set is altered to point to the beginning of the set, subset, or 
data set, respectively. 



If "TO ENDING" is specified, the current path of the set, subset, or 
data set is altered to point to the ending of the set, subset, or data 
set, respectively. 



The <item> construct specifies an item of the current record that is 
assigned a NULL value. The item cannot be a link item. NULL is the 
DASDL-declared NULL value if present; otherwise, it is the system 
default NULL value. 



Pragmatics 



After a "SET TO BEGINNING" form of the SET statement, the "FIND NEXT" 
and "FIND FIRST" forms of the FIND statement are equivalent; similarly, 
after a "SET TO ENDING", a "FIND PRIOR" and "FIND LAST" are equivalent. 



Example 



If the database DBASE is described in DASDL as follows: 



D DATA SET ( 

A ALPHA (20); 
B BOOLEAN; 
N NUMBER (2); 
R REAL; 

); 

S SET OF D KEY ( N ) : 

SS SUBSET OF D WHERE (N = 3); 
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then the following BDMSALGOL program demonstrates different ways to use 
the SET statement. 



BEGIN 

FILE CARD_FILE(KIND=READER) , 

PRINT_FILE(KIND=PRINTER) ; 
DATABASE DBASE: 
BOOLEAN MB.RSLT; 
REAL MR; . 
INTEGER MN; 
EBCDIC ARRAY MA[C):2]; 
LABEL CLOSE_DATABASE ; 

OPEN INQUIRY DBASE; 
SET SS TO BEGINNING :RSLT; 
IF RSLT THEN 
BEGIN 

WRITE(PRINT_FILE, <"** NO ENTRIES IN SS. **">); 

GO CLOSE_DATABASE; 

END; 

WHILE NOT READ(CARD_FILE, <I3> ,MN) DO 
BEGIN 

FIND S AT N = MN; 
SET SS TO D :RSLT; 
IF RSLT THEN 

WRITE(PRINT_FILE, <I3," NOT IN SS.">,MN) 
ELSE 

BEGIN 

GET D(MA[0;) := A, MB := B); 
IF MB THEN 

GET D (MR := R) 
ELSE 

MR := 0; 

WRITE(PRINT_FILE, <I3, " ",A2.*' "^LS,** •*,E4.2>. 
MN,MA[0] ,MB,MR) ; 

END; 
END; 

CLOSE.DATABASE: 
CLOSE DBASE; 
END. 
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STORE STATEMENT 



The STORE statement places a new or modified record into a data set or a 

global record area. The data from the user work area for the data set 
or global record is inserted into the data set or global record area. 



The STORE statement performs the following actions depending on the 
prior operation. 

1. After a CREATE or RECREATE statement: 

a. Checks the data in the user work area for validity if a 
VERIFY condition is specified in the DASDL 

b. Tests the record for validity for insertion in each set in 
the data set (for example, tests whether or not duplicates 
are allowed) 

c. Evaluates the WHERE condition for each automatic subset 

d. Inserts the record into all sets and automatic subsets if 
all conditions are satisfied 

G. Locks the new record 

f. Alters the data set path to point to the new record 

2. After a EDMS "LOCK" or MODIFY statement: 

a. Checks the data in the user work area for validity if a 
VERIFY condition is specified in the DASDL, 

b. Re-evaluates the conditions if items involved in the 
insertion conditions have changed. If the condition 
yields FALSE, the record is removed from each automatic 
subset that contains the record. If the condition yields 
TRUE, the record is inserted into each automatic subset 
that does not contain the record. 

c. Deletes and re-inserts the record in the proper position 
if a key used in the ordering of a set or automatic subset 
is modified so that the record must be moved within that 
set or automatic subset. 

d. Stores the record in a manual subset, but performs no 
reordering on that subset. The user is responsible for 
maintaining manual subsets. A subsequent reference to the 
record using that subset produces undefined results. 
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Synteix 

< store statement > 

— STORE ■<data set> — ^ — > 



I -<database identifier >- I |-<exception handling>-t 



I- ( — <output inapping> — ) -I 



See also 

<data set) 703 

<database identifier) 715 

<exception handling) 768 

<output mapping). 700 



Semantics 



If the <data set) form is used, the data in the user work area for the 
data set is returned to the specified data set. 



If the <database identifier) form is used, the data in the user work, 
area for the global data is returned to the global data record area. 
The global data record must be locked before a STORE statement 
references it; otherwise, the STORE statement is terminated with an 
exception. 



An exception is returned and the record is not stored if the record does 
not meet any of the validity conditions. 



An exception is returned if the data set path is valid and the current 
record is not locked, or if the global data record is not locked. 
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Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS ( AUDIT ) ; 

R RESTART DATA SET ( 

P ALPHA (10) 

Q ALPHA (100); 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3): 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the STORE 
statement can be used to place a record into the data set D. 



BEGIN 

FILE CARD_FILE(KIND=READER) ; 
DATABASE DBASE; 
EBCDIC ARRAY MY_A[0:2]; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N := 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 
BEGINTRANSACTION R; 

STORE D; 

ENDTRANSACTION R; 
MY_N := *+l; 

END ; 

WHILE NOT READ(CARD_FILE, <I3,A3> ,MY_N,MY_A[0] ) DO 
BEGIN 

LOCK S AT N = MY_N ; 
BEGINTRANSACTION R; 
PUT D (A := MY_A[0]); 

STORE D: 

ENDTRANSACTION R; 
END; 
CLOSE DBASE; 
" END. 
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BDMSALGQL FUWCTIOHS 



There are two data management functions available in the BDMSALGOL 
language: DMTEST arid STRUCTURENUMBER. These functions are described in 
this section. 



DMTEST nmQ'TlQV 



The DMTEST function determines whether an item is NULL. The function 
returns a Boolean value, which is TRUE if the value of the relationship 
expressed between the parentheses is TRUE and FALSE otherwise. No 
status value is associated with the DMTEST function. 



syntax 



<dmtest functibn> 
~ DMTEST — ( 



— <alpha item> EQL — NULL — ) — 

-<link. item>^- — 

-<numeric item>-| |- IS 

-<real item> 1 I- NEQ — 

- ISNT - 



<alpha itera> 
< numeric item> 
<real item> 



— <qualif ication> — I 



See also 

<link item> . . 
<qualif ication> 



705 
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Semantics 



The <alpha item> construct specifies an alpha item declared in the 
DASDL. The alpha item contains a NULL value after a "SET <item> TO 
NULL" form of the EDMS "SET" statement, where <item> is the alpha item. 



The <numeric item> construct specifies a numeric item declared in the 
DASDL. The numeric item contains a NULL value after a "SET <item> TO 
NULL" form of the EDMS "SET" statement, where <item> is the numeric 
item. 



The <real item> construct specifies a real item declared in the DASDL. 
The real item contains a NULL value after a "SET <item> TO NULL" form of 
the EDMS "SET" statement, where <item> is the real item. 



The <link item> construct specifies a link item declared in the DASDL. 
The link item contains a NULL value if either of the following is TRUE: 

1. The link item does not point to a record. 

2. No current record is present for the data set that contains the 
link item. This condition occurs following a EDMS "OPEN" 
statement, following the "SET TO BEGINNING" and "SET TO ENDING" 
forms of the EDMS "SET" statement, or when the record 
containing the link item has been deleted. 

The link item contains a non-NULL value if the link item points to a 
record, even if that record has been deleted. 



The word "NULL" represents the DASDL-def ined NULL value. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
. N NUMBER (3); 
R REAL; 
); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the DMTEST 
function can be used to determine whether or not the alpha item A is 
NULL. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE, <I3> ,X) DO 
BEGIN 

LOCK S AT N = X; 

IF DMTEST (A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END; 
CLOSE DBASE; 
END. 
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STRUCTURENUMBER FUNCTION 



The STRUCTURENUMBER function allows the programmer to determine 
programmatically the structure number of a data set, set, subset, or of 
global data. This function can be used to analyze the result of 
exception conditions. 



This capability is most useful when several sets span a data set and the 
previous operation against the data set yielded an exception. The 
program can determine which structure caused the exception from the 
corresponding structure number. 



Syntax 



<structurenumber function > 
— STRUCTURENUMBER ~ ( 



■<database identifiers ) 

i 

■<data set> 1 

I 

■<set > ! 

I 

I 

•<subset > ! 



See also 

<data set> 703 

<database identifier) 715 

<set> 703 

< subset > 704 



Semantics 



If the <database identifiers construct is used, the STRUCTURENUMBER 
function returns the structure number of the global data. Otherwise, 
the function returns the structure number of the data set, set, or 
subset specified, respectively, by the <data set>, <set>, or <subset> 
construct . 
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Pragmatics ' 



When a partitioned structure is declared; in DASDL, it is assigned one or 
more structure numbers, depending on <unsigned integer> in the 
"OPEN PARTITIONS = <unsigned integer >"fiorm of the DASDL "OPEN" data set 
option. (For more information, refer to the "DMSII DASDL Reference 
Manual.") For example, if "OPEN PARTITIONS = 3" is specified, three 
structure numbers are assigned to the partitioned structure. The 
STRUCTURENUMBER function returns the smallest structure number assigned 
to the structure; however, DMSTRUCTURE, the value in the exception 
status word, can evaluate to any of these values; that is, it does not 
necessarily evaluate to the same structure number every time. 



Example 



REAL ERRORWORD; 

IF STRUCTURENUMBER(D) == ERRORWORD. DMSTRUCTURE THEN 
REPLACE EA BY "D FAULT"; 
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9.5 EXCEPTIOH PROCESSING 



When executing BDMSALGOL statements, any one of several exception 
conditions, which prevent the operation from being performed as 
specified, can be encountered. These conditions result if the operation 
encounters a fault or does not produce the expected action. For 
example, execution of the statement 

FIND S AT NAME = "JONES" 

would result in an exception if there is no entry in S that has a value 
of "JONES" for the key item. If the operation terminates normally, no 
exception occurs. 



A database status word is returned to the BDMSALGOL program at the 

conclusion of each BDMSALGOL statement. The value of this word 

indicates whether or not an exception has occurred and specifies the 
nature of the exception. 



DATABASE STATUS WORD 



In a BDMSALGOL statement, the user must specify the name of a real 
variable or Boolean variable in which the value of the database status 
word is stored at the completion of the BDMSALGOL statement. If no such 
variable is specified, the status value cannot be interrogated. 



The <exception handling) construct is used in the syntax of the 
BDMSALGOL statements to denote those statements where a program variable 
can be designated to receive the value of the database status word. 



Syntcuc 



<exception handling) 

— : — <exceptaon variable) — I 



<exception variable) 

<Boolean variable) I 

i ! 
|-<real variable) 1 
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See also 



<Boolean variable > 
<real variable> . 



234 
447 



Semantics 



A Boolean variable is a Boolean simple variable or an element of a 
Boolean array. A real variable is a real simple variable or an element 
of a real array. 



Example 



REAL ERRORWORD; 

OPEN UPDATE DBASE rERRORWORD : 



EXCEPTION HANDLING 



If the. database status word is treated as a Boolean quantity, its value 
is TRUE if the operation containing it results in an exception; 
otherwise, it is FALSE. 



If an exception results from a database operation, but the value of the 
database status word is not assigned to an exception variable in the 
program, the program is terminated. If the value is assigned to an 
exception variable, no other indication of the exception is given. The 
BDMSALGOL program is responsible for determining the nature of the 
exception and responding appropriately. Failure to do so can cause 
unpredictable results. 



To determine the nature of an exception, the database status word is 
interrogated by specifying a period (.) and an attribute name following 
the exception variable. The attribute names are recognized by the 
BDMSALGOL compiler as representations of the appropriate fields of the 
database status word. 
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Syntax 



<exception value> 



— < except ion variable > — . DMERROR 

I I 
I- DMERRORTYPE -i 
! I 
I- DMSTRUCTURE -| 



Semantics 



The attribute "DMERROR" yields a numeric value identifying a major 
category. Mnemonic names are also available to represent these numeric 
values. Either the category number or the category mnemonic can be used 
to test for a particular category. 



The attribute "DMERRORTYPE" yields a numeric value identifying the 
subcategory of the major category. 



The attribute "DMSTRUCTURE" yields a numeric value identifying the 
structure number of the structure involved in the exception. The 
structure numbers of all invoked structures are shown in the program 
listing if the program was compiled with the compiler control options 
LIST and LISTDB equal to TRUE. 



Example 



The following example illustrates one way of handling exceptions in a 
BDMSALGOL program; 

REAL ERRORWORD: 

OPEN UPDATE DBASE : ERRORWORD; 

IF BOOLEAN (ERRORWORD) THEN 

IF ERRORWORD . DMERROR = OPENERROR THEN 
IF ERRORWORD. DMERRORTYPE = 1 THEN 

DISPLAy("I/0 ERROR ON ACCESSROUTINES CODE FILE"); 
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If the exception variable is a Boolean variable, the preceding example 
is changed as follows: 

BOOLEAN ERRORWORD; 

OPEN UPDATE DBASE J ERRORWORD; 

IF ERRORWORD THEN 

IF REAL ( ERRORWORD ).DMERROR = OPENERROR THEN 
IF REAL ( ERRORWORD ) .DMERRORTYPE = 1 THEN 

DISPLAY("I/0 ERROR ON ACCESSROUTINES CODE FILE"); 
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BDMSALGOL COMPILER CONTROL OPTIONS 



The following compiler control options are available in the BDMSALGOL 
language in addition to the options available in the ALGOL language. 
For information on the compiler control options available in ALGOL, 
refer to "Compiler Control Options" in the chapter "Compiling Programs." 



See also 

Compiler Control Options 595 



<datadictinfo option > 



~ DATADICTINFO — I 



(Type: Boolean, Default value: FALSE) 



If the DATADICTINFO option is TRUE, information about the usage of 
database structures and items is placed into the object code file. This 
usage information shows which database structures and items were invoiced 
by the program and whether they were read or written. This option 
cannot be assigned a value after the appearance of the first syntactical 
item in the program. 



<listdb option> 



~ LISTDB ~! 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the LISTDB option are TRUE, the printer 
listing contains information about the invoiced databases, structures, 
and items, including the declared database titles. If the LIST option 
is TRUE but the LISTDB option is FALSE, the printer listing does not 
contain this information. The value of LISTDB is ignored if the LIST 
option is FALSE. 
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<:nodmdefines option > 



— NODMDEFINES — I 



(Type: Boolean, Default value; FALSE) 



If the NODMDEFINES option is TRUE, no defines are expanded in BDMSALGOL 
constructs. 



When the NODMDEFINES option is FALSE, defines in BDMSALGOL constructs 
are expanded, including defines in the following situations; 

1. A database item has the same identifier as a define. 

2. An alphanumeric string that is part of a database item 
identifier {between two hyphens, before the first hyphen, or 
after the last hyphen) is the same as the identifier of a 
define. 



<tracedb opt ion > 



— TRACEDB ~i 



(Type; Boolean, Default value; FALSE) 



If the TRACEDB option is TRUE, the printer listing contains a trace of 
the communication between the BDMSALGOL compiler and the 
DATABASE/INTERFACE program. The action of this option is independent of 
the value of the LIST option. 
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9.7 BINDING AND SEPCQMP QE DATABASES 



BINDING 



Programs that declare and reference databases can be bound together by 
the Binder program. The following example shows a BDMSALGOL host 
program that declares a database and an external procedure, and a 
separate procedure that is to be bound to the host and that declares the 
database in its global part. 



The DASDL description of the database TESTDB is as follows: 

DS DATA SET ( 
NAME GROUP ( 

LAST ALPHA (10); 
FIRST ALPHA (10): 

); 

AGE NUMBER (2): 
SEX ALPHA (1): 
SSNO ALPHA (9); 
): 

NAMESET SET OF DS KEY (LAST. FIRST): 



The following program, compiled with the name SEP/HOST, is the BDMSALGOL 
host program: 

BEGIN 

DATABASE TESTDB: 
PROCEDURE P: EXTERNAL; 
OPEN UPDATE TESTDB; 

P: 

CLOSE TESTDB; 
END. 
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The following separate procedure, P, compiled with the name SEP/P, is to 
be bound to the external procedure P of the host. Note how the database 
TESTDB is declared in the global part. 

[DATABASE TESTDB;] 
PROCEDURE P; 
BEGIN 

BOOLEAN EXCEPT I ONWORD: 
EXCEPTIONWORD := FALSE; 
SET NAMESET TO BEGINNING: 
WHILE NOT EXCEPTIONWORD DO 
BEGIN 

FIND NEXT NAMESET AT LAST = "SMITH" 

AND FIRST = "JOHN" : EXCEPTIONWORD; 
% OTHER STATEMENTS 
END; 
END; 



The separate procedure P in SEP/P can be bound to the host SEP/HOST 
using the following Work Flow Language (WFL) job. The resulting bound 
code file is named GLOBDB. 

?BEGIN JOB BIND/GLOB; 

BIND GLOBDB WITH BINDER LIBRARY; 

BINDER DATA 

HOST IS SEP/HOST; 

BIND P FROM SEP/P; 
?END JOB. 
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SEPCOMP 



Programs that declare and use databases can also make use of th^ sepcpmp, 
facility of the compiler, as shown in the following example. 



The DASDL description of the database TESTDB is as follows: 

DS DATA SET ( 
NAME GROUP ( 

LAST ALPHA (10) : 
FIRST ALPHA (10): 
): 

AGE NUMBER (2): 
SEX ALPHA (1): 
SSNO ALPHA (9): 

); 

NAMESET SET OF DS KEY (LAST, FIRST): 



Because the MAKEHOST compiler control option is TRUE, the following 
program, compiled as MY/HOST, can be used as a host program for SEPCOMP. 

$ SET MAKEHOST 

BEGIN 1 

DATABASE TESTDB; 2 

PROCEDURE P; 3 

BEGIN 4 

BOOLEAN EXCEPTIONWORD; 5 

EXCEPTIONWORD := FALSE: fc 

SET NAMESET TO ENDING: 7 

WHILE NOT EXCEPTIONWORD DO 8 

BEGIN 9 

FIND NEXT NAMESET AT LAST = "SMITH" 10 

AND FIRST = "JOHN": EXCEPTIONWORD: 11 

% OTHER STATEMENTS 12 

END; 13 

END ; 14 

OPEN UPDATE TESTDB; 15 

P; lb 

CLOSE TESTDB; 17 

END. IS 



The following source input invok.es the SEPCOMP facility to change the 
record of the host MY/HOST with sequence number 7, recompile the 
procedure F. and bind the new P to ,the host. 

$ SET SEPCOMP "MY/HOST" % PATCH FOLLOWS 

SET NAMESET TO BEGINNING: 



Ifl COMPILE-TIME FACILITY 



The compile- time facility is used to conditionally and iteratively 
compile ALGOL source data. This chapter describes the declaration and 
use of compile-time variables, compile-time identifiers, compile-time 
statements, an extension to the DEFINE declaration, and compiler control 
options that pertain to the compile-time facility. 



The compile-time facility is available only in ALGOL compilers that have 
been compiled with the CTPROC compiler-generation option set to TRUE. 



COMPILE-TIME VARIABLE 



Syntax 



<compile-time variable declaration> 

l< « ^ _ 1 

I I 
— NUMBER <identifier> — : ———^ I 

I- := — <starting value> I 

■ I. ■ i 

i- [ — <vector length> — ] -I 

<number identifier> 

An <identifier> that is associated with a compile-time variable in a 
compile-time variable declaration. 



<starting value> 

— <compile-time arithmetic expression> — I 



<compile^time arithmetic expression > 

Any <arithmetic expression> that can be fully evaluated at compile 
time* A compile-time arithmetic expression consists of constants 
and <compile-time viariable>s. 



<vector length> 

— <compile-time arithmetic expresslon> — ! 
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< compile- time variable> 

— < number identifier> > 



I- [ — <compile-time arithmetic expression> — ] -| 



Semantics 



An identifier declared in a compile-time variable declaration is a 
"number variable" or an arithmetic compile-time variable. A 
compile-time variable represents a single-precision arithmetic value. 
It can be used wherever an arithmetic value is allowed and represents 
the value most recently assigned to it. The value of a compile-time 
variable can be changed at any time during compilation by using the 
compile-time 'LET statement. A compile-time variable can be declared 
with a starting value; if a starting value is not explicitly declared, 
the starting value is zero. 



If a compile-time variable is declared with a vector length, a vector or 
"array" of compile-time variables is created. When an identifier 
declared in this way is used, it must be subscripted by a compile-time 
arithmetic expression with a value in the range 0 through 
(vector length - 1). The value of the vector length must be in the 
range 1 to 1023. 



Compiie-Time Facility 
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Syntax 



< compile- time identifier> 

— <identif ier > — • --<number identifier > — I 



Semantics 



A compile-time identifier can appear anywhere an identifier can be used, 
including declarations. No blank, characters can appear between 
<identifier> and the apoistrophe ( * ) . the created identifier is the 
<identif ier > . followed by an apostrophe, followed by numeric characters 
corresponding to the value of the number identifier, with leading zeros 
suppressed. 
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COMPILE-TIME STATEMENTS 



Syntax 



< compile- time statement > 

<compile-time begin statement >— 

-<compile-time define statement >■ 

-<compile-time for statement> 

-< compile- time if statement >- 

-<compile-time invoke statement>- 

-< compile- time let statement > 

-<compile-time thru statement > — 
-< compile- time while statement > — 



Semantics 



Compile-time statements begin with an apostrophe ('). which 
distinguishes them from other ALGOL constructs. They are recognized at 
a very primitive level in the compiler and can, therefore, appear almost 
anywhere (for example, between any two ALGOL language components). 



The compile-time statements are intended to provide a method for 
altering the normal flow of compilation, primarily by conditional and 
iterative compilation. 



Compile-time statements are terminated in the same manner as ALGOL 
statements. 



Note that through the use of compile-time variables, a compile-time 
arithmetic or Boolean expression can be fully evaluated at compile time 
and yet not have the same value each time it is evaluated. 
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'BEGIN Statement 
Syntax 

<compile-time begin statement > 

'BEGIN — ^^<compile-time text>~ 'END — <end remark> — I 

< compile- time text> 

Any ALGOL source text, including complete compile- time statements. 

Semantics 

A 'BEGIN statement delimits a portion of ALGOL source text. It is 
normally used in conjunction with 'FOR statements, 'IF statements, and 
'THRU statements. If the 'BEGIN statement is executed, the compiler 
processes all the delimited text; otherwise, the compiler skips 
(ignores) the text. Anything following the 'END up to the first special 
character, END, ELSE, 'END, 'ELSE, or UNTIL is considered to be an <end 
remark> and is ignored. 

'DEFIME Statement 
Syntax 

<compile-t ime define statement > 

— 'DEFINE — <identif ier >~ = — <compile-time statement>— 1 

<compile-time define identifief> 



An <identifier> that is associated with a compile-time statement in 
a compile-time define statement. 
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Semantics 



The 'DEFINE statement declares an identifier to represent a compile-time 
statement. 



The compile-time statement is processed when it is referenced by the 
identifier in a subsequent 'INVOKE statement. 



*FOR Statement 
Syntax 

< compile-time for statement) 

— 'FOR — < number identifier > — := ■ > 

>-< compile-time arithmetic expression> — STEP : > 

>-<compile-time arithmetic expression> — UNTIL ■ — > 

>-<compile-t ime arithmetic expression> — DO > 

>-< compile-time statement> 1 

Semantics 



The 'FOR statement provides iterative compilation of ALGOL source input. 
The value of the compile-time arithmetic expression following "STEP" can 
be positive or negative but must not be equal to zero. 



The action of this statement is similar to that of the non-compile-time 
FOR statement. One exception is that the compile-time arithmetic 
expressions following "STEP" and "UNTIL" are evaluated only once, at the 
beginning of the 'FOR statement, and are not re-evaluated, even though 
their compile-time components can change value. 
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Syntax 



< compile- time if statement > 

— 'IF — ^< compile- time Boolean expression > — : THEN > 

>-<compire-time statement > — ~ — — : — ■ | 

■ I. i 
i- 'ELSE ~< compile- ti.me statement >- I 



<compile-time Boolean expression> 

Any <Boolean expression> that can be fully evaluated at compile 
time. A compile-time Boolean expression consists of constants and 
<compile-time variable>s. 



Semantics 



The 'IF statement provides conditional compilation of ALGOL source 
input. 



If the value of the compile-time Boolean expression is TRUE, then the 
compile-time statement following "THEN" is processed: if it is FALSE, 
the compile-time statement following "'ELSE" is processed, if present. 
In either case, compilation continues with the statement following the 
'IF statement. 
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'INVOKE Statement 
Syntax 

< compile- time invoice statement > 

— 'INVOKE — <compile-time define identifier > — I 

Semantics 

The 'INVOKE statement causes the compile-time statement previously 

associated with the compile-time define identifier in a 'DEFINE 
statement to be processed. 

*LET Statement 
Syntax 

< compile-time let statement > 

— 'LET — < compile-time variable> — ;= > 

>-<compile-time arithmetic expression/ : i 

Semantics 

The 'LET statement is used to modify the value of a compile-time 
variable. If the compile-time variable was declared using the <vector 
length> construct, it must be subscripted by a compile-time arithmetic 
expression with a value in the range 0 to (vector length - 1). 
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'THRU Statement 



Syntax 



<compile-time thru staternent> 

— 'THRU —<compile-time arithmetic expression>— DO • > 

>-< compile- time statement >- — r — — — : 1 



Semantics 



The 'THRU statement provides iterative compilation of ALGOL source 
input i The compile-time arithmetic expression must have a value greater 
than or equal to zero. 



The compile-time statement following "DO" is processed <compile-time 
arithmetic expression> times. If this value is zero, the 'THRU 
statement is skipped. 



'WHILE Statement 



Syntax 

<compile-time while statements 

— 'WHILE — <compile-time Boolean expression > — DO > 

>-< compile-time statement > — — — — —- — ; 1 



Semantics 



The 'WHILE statement provides iterative compilation of ALGOL source 
input. The compile-time Boolean expression is evaluated at the 
beginning of the statement. If it is TRUE, tne compile-time statement 
is processed, the compile-time Boolean expression is evaluated again, 
and this sequence is repeated. Whenever the compile-time Boolean 
expression is FALSE, the 'WHILE statement is finished, and compilation 
continues with the following statement. 
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EXTENSION TQ ^ SE£I££ 



The following extension to the DEFINE declaration is available when 
using the compile-time facility. 



Syntax 



<definition> 

— <identifier> = • • — > 

I M i 

i-< formal symbol part>-i |- := -i 

>-<compile-time text> — # 1 



See also 

< formal symbol part> ^>0 



Semantics 



If a define identifier is declared using the assignment operator (:=), 
then any compile-time statements in the compile-time text are evaluated 
once at the time of, and in the scope of, the DEFINE declaration. 
Otherwise, the compile-time items in the compile-time text are evaluated 
on each invocation of the define identifier. 



Compile-Time Facility 
COMPILE-TIME COMPILER CONTROL OPTIONS 
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The following compiler control options are available only in the 
compile-t ime facility. For more information on compiler control options 
and the printer listing file of the compiler, refer to the "Compiling 
Programs" chapter. 



<ctlist option> 

~ CTLIST — I 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CTLIST option are TRUE, all input 

records processed are written to the printer listing. In particular, 
during iterative compile-t ime statements, input records that are 
compiled repeatedly are listed repeatedly. These input records are 
identified by an asterisk {*) Just to the left of the sequence number. 
If the LIST option is TRUE but the CTLIST option is FALSE, input records 
are written to the printer listing only the first time they are 
compiled. The value of the CTLIST option is ignored if the LIST option 
is FALSE. 



<ctmon option> 



— CTMON — j 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CTMON option are TRUE, all assignments 
to compile-time variables are monitored and written to the printer 
listing. The current value of a compile-time variable when it is 
referenced and the new value when it is changed are listed. If the LIST 
option is TRUE and the CTMON option is FALSE, this monitor information 
does not appear in the printer listing. The value of the CTMON option 
is ignored if the LIST option is FALSE. 
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<cttrace option > 



~ CTTRACE ~| 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CTTRACE option are TRUE, values of 
certain expressions that are components of compile-time statements are 
written to the printer listing. If the LIST option is TRUE and the 
CTTRACE Option is FALSE, this information does not appear in the printer 
listing. The value of the CTTRACE option is ignored if the LIST option 
is FALSE. 



<listskip option> 



— LISTSKIP ~! 



(Type: Boolean, Default value: TRUE) 



If both the LIST option and the LISTSKIP option are TRUE, all records 
are written to the printer listing whether or not they are skipped. 
Skipped records are denoted in the listing by the word "SKIP" to the 
right of the sequence number. If the LIST option is TRUE and the 
LISTSKIP option is FALSE, source records that are skipped by the 
compile-time facility are not written to the printer listing. The value 
of the LISTSKIP option is ignored if the LIST option is FALSE. 
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11 BATCH FACILITY 



The batch facility allows more efficient use of system resources by 
enabling a group of programs possessing certain common characteristics 
to share many system overhead functions normally associated with 
individual jobs. Overhead functions that can be shared include job 
initialization, job termination, linking of intrinsics, memory 
allocation, and so on. 



Programs submitted as part of a batch are compiled and executed 
according to the following restrictions: 

1. The. programs are compiled for syntax errors only or for 
one-time execution. 



2. If a progrcim declares more than one printer file, all 
directed to the same physical file. Likewise, if 
declares more than one card file, all input is taken 
same physical file. 

3. If a program explicitly opens or closes the printer file. that 
program is discontinued, and the next program in the batch is 
initiated. 



output is 
a program 
from the 



4. If a program requires operator intervention, it is 
discontinued, and the next program in the batch is initiated. 

5, If a program attempts to initiate a task, it is discontinued, 
and the next program in the batch is initiated. 

b. WAIT statements are allowed but have no effect. 

7. The source records of all programs in the batch must use the 
same character type. 



S. 



In FILE declarations, 
must not be variables 



the values assigned to 
or expressions Involving 



file attributes 
variables . 
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The following compiler control options are invalid or ignored. 



AUTOBIND 


INTRINSIC? 


PURGE 


BIND 


LEVEL 


SEGDESCABOVE 


BINDER 


LIBRARY 


SEPCOMP 


DUMPINFO 


LINEINFO 


SHARING 


ERRLIST 


LISTINCL 


STOP 


EXTERNAL 


LOAD INFO 


TARGET 


GO TO 


MAKEHOST 


TIME 


HOST 


MCP 


USE 


INCLNEW 


MERGE 


VERSION 


INCLSEQ 


NEVf 


XDECS 


INCLUDE 


NEWSEQERR 


XREF 


INITIALIZE 


NOBINDINFO 


XREFFILES 


INSTALLATION 


NOXREFLIST 


XREFS 
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BATCB gQW^QE IMSl 



The ALGOL compiler perforins batch compilation only if the compiler is 

initiated by the Work Flow Language (WFL)* and the source input is in 

the form of <batch source input >. If a <job specif ier> occurs in a 
CANDE-initiated compilation, the compilation is discontinued. 

All batch source input must have the following form: 

Syntax 

■ ■ l<- i 

I . i 

: . _^__< jQt)> I 

I I 

i-<time restrictions>- I 

<time restrictions > 

i< ______ . 1 

i I 
I I <__ _ > _ I I 

i I I ! 
$ < process time restriction > — -1 

' I 
|-<iotime restriction >- — - — I 

< process time restriction > 

— PROCESSTIME = — <decimal number > — I 

<iotime restriction> 



— lOTIME — = — <decimal numbers — ! 
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<job> 

— $ — <job specifier > <block> — 

i I 
|-<time restrict ions >- I 



|- $ — <entry specif ier> ! 

i ! 
j -<data>- j 

<job specifier> 

~ JOB 1 

I ! 
|-<job title>-| 

<job title> 

Any valid file title. 

<entry specifier> 
— ENTRY — I 

<data > 

Input data to be read by the program when it is executed. 
Semantics 



Batch source input consists of one or more individual programs or 
"jobs." Jobs are delimited in batch source input by "$ <job specifier)-" 
records. Each job can be either compiled for syntax only or compiled 
and then executed. A job is executed if it contains a "$ ENTRY" record, 
and if the job needs input during its execution, this data follows the 
"$ ENTRY" record. Maximum processor times- and I/O times can be 
specified for each Job or for all jobs in a batch. Printed output for 
all jobs in a batch is written to the same file and is printed in one 
listing. ' 



The <processtime restriction > , <iotime restriction> , <job specif ier>. 
and <entry specifier> constructs are valid only for batch compilation 
and are not compiler control options. 
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The individual syntactic constructs of xbatch source input> are 
described in more detail in the following paragraphs. 



<time restrictions > 



The <processtime restriction> and <iotime restriction> constructs 
specify the maximum processor time and maximum I/O time, respectively, 
allowed for the execution of a Job before it is discontinued. 



If the time restrictions appear before the first job in a batch, they 
apply to the execution of every Job in the batch. If the time 
restrictions appear within a Job, they apply to the execution of that 
job only, but they are meaningful only if they specify less time than 
the time restrictions, if any, appearing before the first job in the 
batch. 



< job> 



Each job in the batch source data consists of a complete program that is 
compiled for syntax only or for one-time execution. A job can include 
its own time restrictions and compiler control records. 



<job specif ier> 



The first record in each job must be the "$ <• job specifier>" record. If 
a job title is specified in the <job specifier > construct, it is used to 
identify the printed output produced by that job. 



< block. > 



The <block> and any compiler control records that follow the 
"$ <job specif ier>" record and precede the next "$ ENTRY" record, if 
any, or "$ <Job specifier >" record make up the ALGOL program. 



< entry specif ier> 



The "$ <entry specif ier>" record specifies that the program is to be 
executed if no syntax errors are found and indicates the beginning of 
any input data to be used during execution. If no "$ <entry specifier>" 
record appears in the job. , then the program is compiled for syntax 
errors only; it is not executed. 
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<data> 



If a job needs input data during execution, the input data appears after 
the "$ ENTRY" record and before the next job, if any. 



Example 

7BEGIN JOB EXAMPLEBATCH; 
'COMPILE BATCHA ALGOL; 
7ALG0L DATA 

$ PROCESSTIME = 5.5 lOTIME = 1 

$ JOB Al 

$ SET LIST SEQ 

BEGIN 

FILE RDR(KIND = READER); 
INTEGER I; 
ARRAY Z[0:2] ; 

READ (RDR,/, FOR I := 0 STEP 1 UNTIL 2 DO Z[l]); 
END. 
$ ENTRY 

2.315,3.71828, .5772, 

$ JOB A2 

BEGIN 

INTEGER A,B,C; 

A := B ++ C; % A SYNTAX ERROR 
END. 
$ ENTRY 
$ JOB A3 
BEGIN 

REAL PI; 

PI := 22/7; 
END. 

$ JOB A4 

$ PROCESSTIME =2.5 lOTIME =0.5 
BEGIN 

LABEL AGAIN; 

REAL X; 
AGAIN : 

X := 355/133; 

GO TO AGAIN; 
END. 
$ ENTRY 
TEND JOB 



This example shows a WFL job consisting of one batch compilation. The 
batch contains four programs or jobs. No job in this batch is allowed 
more than 5.5 seconds of processor time or 1 second of I/O time. 



Batch Faicility 
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Job Al compiles correctly and is executed using the one record of data 
immediately following its "$ ENTRY" record. Job A2 is not executed 
because it contains a syntax error but would be executed if it were free 
of errors. Job A3, though syntactically correct, is not executed 
because it does not contain a "$ ENTRY" record. 



Job A4 is allowed only 2.5 seconds of processor time and 0.5 seconds of 
1/0 time, compared to 5.5 seconds and 1 second, respectively, for the 
other three jobs in the batch. Job A4 compiles correctly and is 
executed; however, because it contains an infinite loop, it is 
discontinued after its allotted 2.5 seconds of processor time. 
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IMPLEMENTATION SCHEME 



The goal of the batch facility is to eliminate as much system overhead 
as possible by reducing the number of tasks initiated within the running 
environment of A Series and B 5000/B 6000/B 7000 Series systems. 



An entire batch is presented to the compiler as one file, thereby 
avoiding repeated initiation of the compiler. The compilation process 
for each individual job within a batch is virtually the same as that for 
nonbatched programs and yields equally efficient object code. When the 
compiler finishes compiling the batch, it generates special object code 
that links each job to the next one. When a job is not to be executed 
(the "$ ENTRY" record is not present or syntax errors occurred during 
compilation), it is not linked to the other jobs. When compilation is 
complete, the object code for all jobs in the batch resides in one disk 
file. 



The printed output from the compiler is directed to a backup printer 
file with an altered BDNAME task attribute so that the output is not 
automatically printed. Logging information regarding the compilation is 
also saved in this file. The execution of the object code proceeds as 
follows: 

1. The D2 stack is built. 

2. The batchmonitor intrinsic is called and passed a procedure 
that serially calls each individual job. 

3. The batchmonitor intrinsic processes the procedure passed to 
it. If any job causes a fatal run-time error, the batchmonitor 
intrinsic executes a procedure that goes automatically to the 
next individual job. 

4. The batchmonitor intrinsic rewinds the two backup printer 
files, extracts the logging information, collates the output 
into a new printer file, and returns control to the Master 
Control Program (MCP). 

All jobs share the same printer file and intrinsics and can even share 
the same object code segments. The individual jobs run serially and 
share the same stack space. 
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A job is protected from previous jobs by the batchmonitor intrinsic. If 
one job is discontinued with an error, execution is re-initiated by the 
batchmonitor intrinsic at the next individual job. If any job uses 
excessive I/O or processor time, the batchmonitor intrinsic terminates 
that job. Likewise, the batchmonitor intrinsic enforces the rule that 
no operator messages requiring responses are allowed by terminating any 
Job that causes such a message. 



The batchmonitor intrinsic extracts the logging information from the two 
printer files and summarizes it at the end of the output for each job. 
This summary procedure is easily modified to provide an interface with 
the accounting system of a given installation. Two words in each log 
record furnished by the compiler and the individual job are spares, thus 
facilitating any installation extensions. 
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A < reserved word> in Extended ALGOL has the same syntax as an 
identifier. The reserved words are divided into three types. 

A reserved word of type 1 can never be declared as an identifier; that 
is, it has a predefined meaning that cannot be changed. For example, 
because LIST is a type 1 reserved word, the declaration 

ARRAY LIST[0:999] 

is flagged with a syntax error. 



A reserved word of type 2 can be redeclared as an identifier; it then 

loses its predefined meaning in the scope of that declaration. For 

example, because IN is a type 2 reserved word, the declaration 

FILE IN (KIND = READER) 

is legal, but in the scope of the declaration, the statement 

SCAN P WHILE IN ALPHA 
is flagged with a syntax error on the word "IN*'. 



If a type 2 reserved word is used as a variable in a program but it is 
not declared as a variable, then the error message that results is not 
the expected "UNDECLARED IDENTIFIER." Instead, it may be "NO STATEMENT 
CAN START WITH THIS." 



A reserved word of type 3 is context-sensitive. It can be redeclared as 
an identifier, and. if it is used where the syntax calls for that 
reserved word, it carries the predefined meaning; otherwise, it carries 
the user-declared meaning. The different meanings for the type 3 
reserved word STATUS are illustrated in the following example. 

BEGIN 

TASK T; 
REAL STATUS: 

% IN THE NEXT STATEMENT, "STATUS"' IS A REAL VARIABLE 

STATUS := 4. 5; 

% IN THE NEXT STATEMENT, "STATUS" IS A TASK ATTRIBUTE 
IF T. STATUS = VALUE (TERMINATED) THEN 

% IN THE NEXT STATEMENT, "STATUS" IS A REAL VARIABLE 

STATUS := 10.0: 

END. 
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Type 3 reserved words include the following: 

- File attribute names 
Task, attribute names 

- Library attribute names 

- Direct array attribute names 

- Mnemonics for attribute values 



All file attributes, direct array attributes, and mnemonics described in 
the "I/O Subsystem Reference Manual" are type 3 reserved words in ALGOL. 
All task, attributes and mnemonics described in the "Work Flow Language 
(WFL) Reference Manual" are type 3 reserved words in ALGOL. 



RESERVED WORDS LIST 



The following is an alphabetical list of reserved words for Extended 
ALGOL. The number in parentheses following each word indicates the type 
of the reserved word. For example, "FOR (1)" indicates that FOR is a 
type 1 reserved word. 



ABS (2) 


BACKUPPREFIX (3) 


CHECKSUM (2) 


ACCEPT (2) 


BASE (3) 


CLASS (3) 


ACTUALNAME (3) 


BCL (2) 


CLN (2) 


ALL (3) 


BCLTOASCII (3) 


CLOSE (2) 


ALPHA (1) 


BCLTOEBCDIC (3) 


CODE ( 3 ) 


ALPHA6 (3) 


BCLTOHEX (3) 


COMMENT ( 1 ) 


ALPHA7 (3) 


BEGIN (1) 


COMPILETIME (2) 


ALPHAS (3) 


BOOLEAN (1) 


COMPILETYPE (3) 


AND (2) 


BREAKPOINT (2) 


COMPLEX (2) 


ANYFAULT (3) 


BY (2) 


CONJUGATE (2) 


ARCCOS (2) 


BYFUNCTION ( 3 ) 


CONTINUE (1) 


ARCSIN (2) 


BYTITLE (3) 


COREESTIMATE (3) 


ARCTAN (2) 


CABS (2) 


COS (2) 


ARCTAN2 (2) 


CALL (2) 


COSH (2) 


ARRAY (1) 


CALLING (2) 


COTAN (2) 


ARRAYS (3) 


CANCEL (2) 


CRUNCH (3) 


ARRAYSEARCH (2) 


CASE (2) 


CSIN (2; 


AS (3) 


CAT (2) 


CSQRT (2) 


ASCII (2) 


CAUSE (2) 


DABS (2) 


ASCIITOBCL (3) 


CAUSEANDRESET (2) 


DAND (2) 


ASCIITOEBCDIC (3) 


CCOS (2) 


DARCCOS (2) 


ASCIITOHEX (3) 


CEXP (2) 


DARCSIN (2) 


ATANH (2) 


CHANGEFILE (2) 


DARCTAN (2) 


ATTACH (2) 


. CHARGECODE (3) 


DARCTAN2 (2) 


AVAILABLE (2) 


CHECKPOINT (2) 


DBS (3) 



Reserved Words 
Reserved Words , Con t i nued 



DCOS (2) 
DCOSH (2) 
DEALLOCATE (2) 
DECIMAL (2) 

DECIMALPOINTISCOMMA (3) 

DECLAREDPRIORITY (3) 

DEFINE (2) 

DELINKLIBRARY (2) 

DELTA (2) 

DEQV (2) 

DERF ( 2 ) 

DERFC ( 2 ) 

DETACH (2) 

DEXP (2) 

DGAMMA (2) 

DICTIONARY (2) 

DIGITS (2) 

DIMP (2) 

DINTEGER (2) 

DIRECT (1) 

DISABLE (2) 

DISCARD (3) 

DISK (3) 

DISKPACK (3) 

DISPLAY (2) 

DIV (2) 

DLGAMMA (2) 

DLN (2) 

DLOG ( 2 ) 

DMAX (2) 

DMIN (2) 

DNABS (2) 

DNOT (2) 

DO (1) 

DONTWAIT (2) 
DOR (2) 
DOUBLE (1) 
DROP (2) 
DSCALELEFT ( 2 ) 
DSCALERIGHT (2) 
DSCALERIGHTT (2) 
DSIN (2.; 
DSINH (2) 
DSQRT (2) 
DTAN (2) 
DTANH (2) 
DUMP (2) 
EBCDIC (2) 
EBCDICTOASCII (3) 
EBCDICTOBCL (3) 
EBCDICTOHEX (3) 



ELAPSEDTIME (3) 
ELSE (1) 
EMPTY ( 2 ) 
EMPTy4 (2) 
EMPTY7 (2) 
EMPTY8 (2) 
ENABLE (2) . 
END (1) 
ENTIER (2) 
EQL (2) 
EQV (2) 
ERF (2) 
ERFC (2) 
EVENT (1) 

EXCEPT I ONEVENT (3) 
EXCEPT I ONTASK (3) 
EXCHANGE (2) 
EXP (2) 

EXPONENTOVERFLOW ( 3 ) 

EXPONENTUNDERFLOW ( 3 ) 

EXPORT (2) 

EXTERNAL (2) 

FALSE (1) 

FAMILY (3) 

FILE (1) 

FILECARDS (3) 

FILES (3) 

FILL (2) 

FIRST (2) 

FIRSTONE (2) 

FIRSTWORD (2) 

FIX (2) 

FOR (1) 

FORMAL (2) 

FORMAT ( 1 ) 

FORWARD (2) 

FREE (2) 

FREEZE (2) 

FUNCTIONNAME (3) 

GAMMA (2) 

GEQ (2) 

GO (1) 

GTR (2) 

HAPPENED (2) 

HEAD (2) 

HEX (2) 

HEXTOASCII (3) 
HEXTOBCL (3) 
HEXTOEBCDIC ( 3 ) 
HISTORY (3) 
IF (1) 



IMAG (2) 
IMP (2) 
IN (2) 

INITIATOR (3) 

INTEGER (1) 

INTEGEROVERFLOW (3) 

INTEGERT (2) 

INTERRUPT (2) 

INTNAME (3) 

INVALIDADDRESS (3) 

INVALIDINDEX (3) 

INVALIDOP (3) 

INVALIDPROGRAMWORD (3) 

IS (2) 

ISNT (2) 

JOBNUMBER (3) 

LABEL (1) 

LB (2) 

LENGTH (2) 

LEQ (2) 

LIBACCESS (3) 

LIBERATE (2) 

LIBPARAMETER (3) 

LIBRARIES (3) 

LIBRARY (2) 

LINE (2) 

LINENUMBER (2) 

LINKLIBRARY (2) 

LIST (1) 

LISTLOOKUP (2) 

LN (2) 

LNGAMMA (2) 

LOCK ( 2 ) 

LOCKED (3) 

LOG (2) 

LONG (1) 

LOOP (3) 

LSS (2) 

MASKSEARCH (2) 
MAX (2) 
MAXCARDS (3) 
MAXIOTIME (3) 
MAXLINES ( 3 ) 
MAXPROCTIME (3) 
MEMORYPARITY (3) 
MEMORYPROTECT (3) 
MERGE (2) 

MESSAGESEARCHER (2) 
MIN (2) 
MOD (2) 
MONITOR (2) 
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Reserved Words, Continued 



MUX (2) 


READLOCK (2) 


STRING (2) 


MY JOB (2) 


REAL (1) 


STRINGPROTECT (3) 


MYSELF (2) 


REEL (3) 


STRING4 (2) 


NABS (2) 


REFERENCE (1) 


STRING? (2) 


NAME (3) 


REMAIN INGCHARS (2) 


STRINGS (2) 


NEQ (2) 


REMOVEFILE (2) 


SUBFILE (2) 


NO (2) 


REPEAT ( 2 ) 


SUBSPACES (3) 


NORMALIZE (2) 


REPLACE (2) 


SWITCH (1) 


NOT (2) 


RESET (2) 


TADS (3) 


NUMERIC (2) 


RESIZE (2) 


TAIL (2) 


OF (2) 


RESTART (3) 


TAKE ( 2 ) 


OFFER (3) 


RETAIN (3) 


TAN (2) 


OFFSET (2) 


REWIND (2) 


TANK (2) 


ON (2) 


RUN (2) 


TARGETTIME (3) 


ONES (2) 


SCALELEFT (2) 


TASK (1) 


OPEN (2) 


SCALERIGHT (2) 


TASKATTERR (3) 


OPTION (3) 


SCALER IGHTF (2) 


TASKFILE (3) 


OR (2) 


SCALERIGHTT (2) 


TASKVALUE (3) 


ORGUNIT (3) 


SCAN (2) 


TEMPORARY (3) 


OUT (3) 


SCANPARITY (3) 


THEN (1) 


OUTPUTMESSAGE (2) 


SDIGITS (2) 


THRU (2) 


OWN (1) 


SECONDWORD (2) 


TIME (2) 


PACK (3) 


SEEK (2) 


TIMELIMIT (2) 


PAGED (3) 


SET (2) 


TIMES (2) 


PARTNER (3) 


SETACTUALNAME (2) 


TITLE (3) 


PERMANENT (3) 


SIBS (3) 


TO (2) 


PICTURE (2) 


SIGN (2) 


TRANSLATE (2) 


POINTER (1) 


SIN (2) 


TRANSLATETABLE (1) 


POTC (2) 


SINGLE (2) 


TRUE (1) 


POTH (2) 


SINK (2) 


TRUTHSET (1) 


POTL (2) 


SIZE (2) 


TYPE (3) 


PRIVATELIBRARIES (3) 


SKIP (2) 


UNTIL (I) 


PROCEDURE (1) 


SORT (2) 


USERCODE (3) 


PROCESS (2) 


SPACE (2) 


VALUE (1) 


PROCESSID (2) 


SQRT (2) 


WAIT (2) 


PROCESSIOTIME (3) 


STACKER (2) 


WAITANDRESET (2) 


PROCESSTIME (3) 


STACKNO (3) 


WHEN (2) 


PROCURE (2) 


STACKS I ZE (3) 


WHILE (1) 


PROGRAMDUMP (2) 


STARTTIME (3) 


WITH (2) 


PROGkAMMEDOPERATOR (3) 


STATION (2) 


WORDS (2) 


PURGE (2) 


STATUS (3) 


WRITE (2) 


RANDOM (2) 


STEP (1) 


ZERODIVIDE (3) 


RB (2) 


STOP (2) 


ZIP (1) 


READ (2) 


STORPOINT (3) 
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RESERVED WORDS BY TYPE 
Type 1 Reserved Words 



ALPHA 


FILE 


REFERENCE 


ARRAY 


FOR 


STEP 


BEGIN 


FORMAT 


SWITCH 


BOOLEAN 


GO 


TASK 


COMMENT 


IF 


THEN 


CONTINUE 


INTEGER 


TRANSLATETABLE 


DIRECT 


LABEL 


TRUE 


DO 


LIST 


TRUTHSET 


DOUBLE 


LONG 


UNTIL 


ELSE 


OWN 


VALUE 


END 


POINTER 


WHILE 


EVENT 


PROCEDURE 


ZIP 


FALSE 


REAL 





T ype 2 Reserved Words 



ABS 


CLOSE 


DIGITS 


ACCEPT 


COMPILETIME 


DIMP 


AND 


COMPLEX 


DINTEGER 


ARCCOS 


CONJUGATE 


DISABLE 


ARCSIN 


COS 


DISPLAY 


ARCTAN 


COSH 


DIV 


ARCTAN2 


COTAN 


DLGAMMA 


ARRAYSEARCH 


CSIN 


DLN 


ASCII 


CSQRT 


DLOG 


ATANH 


DABS 


DMAX 


ATTACH 


DAND 


DMIN 


AVAILABLE 


DARCCOS 


DNABS 


BCL 


DARCSIN 


DNOT 


BREAKPOINT 


DARCTAN 


DONTWAIT 


BY 


DARGTAN2 


DOR 


CABS 


DCOS 


DROP 


CALL 


DCOSH 


DSCALELEFT 


CALLING 


DEALLOCATE 


DSCALERIGHT 


CANCEL 


DECIMAL 


DSCALERIGHTT 


CASE 


DEFINE 


DSIN 


CAT 


DELINKLIBRARY 


DSINH 


CAUSE 


DELTA 


DSQRT 


CAUSEANDRESET 


DEQV 


DTAN 


CCOS 


DERF 


DTANH 


CEXP 


DERFC 


DUMP 


CHANGEFILE 


DETACH 


EBCDIC 


CHECKPOINT 


DEXP 


EMPTY 


CHECKSUM 


DGAMMA 


EMPTY4 


CLN 


DICTIONARY 


EMPTY? 
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Type 2 Reserved Words., Continued 



EMPTY 8 


LOG 


RUN 


ENABLE 


LSS 


SCALELEFT 


ENTIER 


MASKSEARCH 


SCALERIGHT 


EQL 


MAX 


SCALERIGHTF 


EQV 


MERGE 


SCALERIGHTT 


ERF 


MESSAGESEARCHER 


SCAN 


ERFC 


MIN 


SDIGITS 


EXCHANGE 


MOD 


SECONDWORD 


EXP 


MONITOR 


SEEK 


EXPORT 


MUX 


SET 


EXTERNAL 


MYJOB 


SETACTUALNAME 


FILL 


MYSELF 


SIGN 


FIRST 


NABS 


SIN 


FIRSTONE 


NEQ 


SINGLE 


FIRSTWORD 


NO 


SINK 


FIX 


NORMALIZE 


SIZE 


FORMAL 


NOT 


SKIP 


FORWARD 


NUMERIC 


SORT 


FREE 


OF 


SPACE 


FREEZE 


OFFSET 


SQRT 


GAMMA 


ON 


STACKER 


GEQ 


ONES 


STATION 


GTR 


pPEN 


STOP 


HAPPENED 


OR 


STRING 


HEAD 


OUTPUTMESSAGE 


STRING4 


HEX 


PICTURE 


STRING? 


I MAG 


POTC 


STRINGS 


IMP 


POTH 


SUBFILE 


IN 


POTL 


TAIL 


INTEGERT 


PROCESS 


TAKE 


INTERRUPT 


PROCESS ID 


TAN 


IS 


PROCURE 


TANH 


ISNT 


PROGRAMDUMP 


THRU 


LB 


PURGE 


TIME 


LENGTH 


RANDOM 


TIMELIMIT 


LEQ 


RB 


TIMES 


LIBERATE 


READ 


TO 


LIBRARY 


READLOCK 


TRANSLATE 


LINE 


REMAIN I NGCHARS 


WAIT 


LINENUMBER 


REMOVEFILE 


WAITANDRESET 


LINKLIBRARY 


REPEAT 


WHEN 


LISTLOOKUP 


REPLACE 


WITH 


LN 


RESET 


WORDS 


LNGAMMA 


RESIZE 


WRITE 


LOCK 


REWIND 





Reserved Words 

Type 3 Reserved Words 



ACTUALNAME 


EXCEPTIONEVENT 


ORGUNIT 


ALL 


EXCEPT I ONTASK 


OUT 


ALPHA6 


EXPONENTOVERFLOW 


PACK 


ALPHA7 


EXPONENTUNDERFLOW 


PAGED 


ALPHAS 


FAMILY 


PARTNER 


ANY FAULT 


FILECARDS 


PERMANENT 


ARRAYS 


FILES 


PRIVATELIBRARIES 


AS 


FUNCTIONNAME 


PROCESSIOTIME 


ASCIITOBCL 


HEXTOASCII 


PROCESSTIME 


ASCIITOEBCDIC 


HEXTOBCL 


PROGRAMMEDOPERATOR 


ASCIITOHEX 


HEXTOEBCDIC 


REEL 


BACKUPPREFIX 


HISTORY 


RESTART 


BASE 


INITIATOR 


RETAIN 


BCLTOASCII 


INTEGEROVERFLOW 


SCANPARITY 


BCLTOEBCDIC 


INTNAME 


SIBS 


BCLTOHEX 


INVALIDADDRESS 


STACKNO 


BYFUNCTION 


INVALIDINDEX 


STACKS I ZE 


BYTITLE 


INVALIDOP 


STARTTIME 


CHARGECODE 


I N VAL I DPROGRAMWORD 


STATUS 


CLASS 


JOBNUMBER 


STOPPOINT 


CODE 


LIBACCESS 


STRINGPROTECT 


COMPILETYPE 


LIBPARAMETER 


SUBSPACES 


COREESTIMATE 


LIBRARIES 


TADS 


CRUNCH 


LOCKED 


TARGETTIME 


DBS 


LOOP 


TASKATTERR 


DEC I MALPO I NT I SCOMMA 


MAXCARDS 


TASKFILE 


DECLAREDPRIORITY 


MAXIOTIME 


TASKVALUE 


DISCARD 


MAXLINES 


TEMPORARY 


DISK 


MAXPROCTIME 


TITLE 


DISKPACK 


MEMORYPARITY 


TYPE 


EBCDICTOASCII 


MEMORYPROTECT 


USERCODE 


EBCDICTOBCL 


NAME 


ZERODIVIDE 


EBCDICTOHEX 


OFFER 




ELAPSEDTIME 


OPTION 





B DATA REPRESENTATION 



FIELD NOTATION 



The notation "[m:n]" is used in this manual to describe fields within 
data words. The 48 accessible bits of a data word are considered to be 
numbered, with the leftmost bit numbered as bit 47 and the rightmost bit 
numbered as bit 0. In the notation [m:n], "m" denotes the number of the 
leftmost bit of the field being described, and "n" denotes the number of 
bits in the field. For example, the field indicated by the shaded area 
in Figure B-1 (bits 28 through 24) is described as [28:5]. 




Figure B-1. Field Notation, [28:5] 



All data words have a field associated with them that is called the 
•"tag" of the word. The tag identifies the type of the data word; that 
is, whether the word is an operand, descriptor, and so on. The tag is 
not accessible to ALGOL programs. 



Hexadecimal format is used extensively in this manual to indicate word 
contents. This format is particularly suited to describe the value of a 
data word, because each hexadecimal digit indicates the contents of a 
4-bit field. Such fields can be visualized as the columns in Figure 
B-1. 
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CHARACTER REPRESENTATION 



Characters are stored in fields of one, two, three, four, six, or eight 
bits. In the table below, the Character Type column lists the valid 
ALGOL character types. The Field Size and Bits Used columns show the 
field size in bits and the number of bits within that field, 
respectively, that are used for storing each type of character. The 
Valid Constructs column shows the character-oriented ALGOL constructs 
that are used to manipulate each character type. 



Field 

Character Type Size 

EBCDIC 8 

ASCII 8 

BCL b 

Hexadecimal (HEX) 4 

Octal 3 

Quaternary 2 

Binary 1 



Bits 
Used 



Valid Constructs 

pointer, character 

string, string 1 
pointer, character 

string, string 1 
pointer, character 

string literal 
pointer, character 

string, string 1 
string literal 

string literal 

string literal 



array , 
iteral 

array , 
iteral 

array, 

array , 
iteral 



Figures B-2 through B-5 illustrate how the various character types are 
stored within a data word. 



Data Representation 
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0 



47 


43 


39 


35 


31 


27 


23 


19 


15 


11 


7 


3 


46 


42 


38 


214 


30 




26 


22 


18 


14 


10 


6 


2 


. 45 


41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 


44 


40 


36 


32 


28 


24 


20 


16 


12 


8 


4 


0 



y 



y 



Meet Sigiiif icarit 
Character 



Least Significant 
Character 



Figure B-2. EBCDIC Characters (8-Bit Fields) 



Figure B-3 shows that ASCII characters, which are 7-bit characters, are 
stored in 8-bit fields (as are EBCDIC characters). The zeros shown for 
bits 7, 15, 23, 31, 39, and 47 Indicate that these bits are 0 when ASCII 
characters are stored. 



0 



■X.. 



3 4 

J ^ L 



0 

47 


43 


0 

39 


35 


0 

31 


27 


0 

23 


19 


0 

15 


11 


0 

7 


3 


46 


42 


38 


34 


30 


26 


22 


18 


14 


10 


6 


2 


45 


41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 


44 


40 


36 


32 


28 


24 


20 


16 


12 


6 


4 


0 



y 



Most Significant 
Character 



y 



T 

Least Significant 
Character 



Figure B-3. ASCII Characters (8-Bit Fields) 
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Most Significant 
Character 

0 2 4 6 



^ ^ ^ ^ ^ 



4r 


43 


39 


35 


31 


2? 


23 


19 


15 


11 


7 


3 


46 


42 


38 


34 


30 


26 


22 


16 


14 


10 


6 


2 


45 


41 


37 


33 


29 


25 


21 


17 


13 


d 


5 


1 


44 


40 


36 


32 


28 


24 


2G 


16 


12 


8 


4 


0 



r-^ ^ r—^ 

5 7 

Least Significant 
Character 

Figure B-4. BCL Characters (6-Bit Fields) 



I 

3 



y 



0123456789 10 11 



47 


43 


39 


35 


31 


27 


23 


10 


15 


11 


7 


3 


46 


42 


38 


34 


30 


26 


22 


18 


14 


10 


6 


2 


46 


41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 


44 


40 


36 


32 


28 


24 


20 


16 


12 


3 


4 


0 



Most Least 
Significant Significant 
Character Character 



Figure B-5. Hexadecimal Characters (4-Bit Fields) 
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The following is a list of the 256 EBCDIC values represented in binary, 
octal, decimal, and hexadecimal formats. The corresponding BCL, ASCII, 
and EBCDIC graphics (as they appear when printed using an EBCDIC96 print 
train) are also shown. In the EBCDIC column, corresponding standard 
mnemonics appear for some nonprintable EBCDIC values. 



Binary 


Octal 


Decimal 


Hexadecimal 


BCL 


ASCII 


EBCDI 


00000000 


000 


0 


00 


0 




NUL 


00000001 


001 


1. 


01 


1 




SOH 


00000010 


002 


2 


02 


2 




STX 


00000011 


003 




03 


3 




ETX 


00000100 


004 


4 


04 


4 






00000101 


005 


5 


0:5 


5 




HT 


00000110 


006 


6 


Ofo 


6 






00000111 


007 


7 


07 


7 




DEL 


00001000 


010 


8 


018 


8 






00001001 


oil 


9 


019 


9 






00001010 


012 


10 


OA 








00001011 


013 


11 


OB 


@ 




VT 


00001100 


014 


12 


OC 


7 




FF 


00001101 


015 


13 


OD 


• 




CR 


00001110 


016 


14 


OE 


> 




SO 


00001111 


017 


15 


OIF 






SI 


00010000 


020 


16 


1:0 


+ 




DLE 


00010001 


021 


17 


11 


A 




DCl 


00010010 


022 


18 


12 


B 




DC2 


00010011 


023 


19 


13 


C 




DC 3 


00010100 


024 


20 


14 


D 






00010101 


025 


21 


15 


E 




NL 


00010110 


026 


22 


16 


F 




BS 


00010111 


027 


23 


17 


G 






00011000 


030 


24 


1,8 


H 




CAN 


OOOllOCl 


031 


25 


1:9 


T 
X 




EM 


00011010 


032 


26 


lA 








00011011 


033 


27 


IE 


[ 






00011100 


034 


28 


IC 


& 




FS 


00011101 


035 


29 


ID 


( 




GS 


00011110 


036 


30 


IE 


< 




RS 


00011111 


037 


31 


' ■ ■ IF 


J 




US 


00100000 


040 


. 32 


2!0 


} 






00100001 


041 


33 


21 




1 




OOlOOOlO 


042 


34 


22' 


K 


If 




00100011 


043 


35 


23 


L 


it 




00100100 


044 


36 


24 


M 


$ 




00100101 


045 


37 


. 25 


N 


% 


LF 


00100110 


046 


38 


26 ' 


0 


& 


ETB 


00100111 


047 


39 


27 


P 




ESC 


00101000 


050 


40 . 


: 28- 


Q 


( 





/ . 



812 

ALGOL REFERENCE MANUAL 



Character Values and Graphics, continued 



Binary 


Octal 


Decimal 


Hexadecimal 


BCL 


ASCII 


EBCDIC 


00101001 


051 


41 


29 


R 


) 




00101010 


052 


42 


2A 


$ 






00101011 


053 


43 


2B 




+ 




00101100 


054 


44 


2C 








00101101 


055 


45 


2D 


) 




ENQ 


00101110 


056 


46 


2E 




• 


ACK 


00101111 


057 


47 


2F 




/ 


BEL 


00110000 


060 


48 


30 




0 




00110001 


061 


49 


31 


/ 


1 




00110010 


062 


50 


32 


s 


2 


SYN 


00110011 


063 


51 


33 


T 


3 




00110100 


064 


52 


34 


U 


4 




00110101 


065 


53 


35 


V 


5 




00110110 


066 


54 


36 


w 


6 




00110111 


067 


55 


37 


X 


7 


EOT 


00111000 


070 


56 


38 


Y 


8 




00111001 


071 


57 


39 


Z 


9 




00111010 


072 


58 


3A 




• 




00111011 


073 


59 


3B 


% 






00111100 


074 


60 


3C 


— 


< 


DC4 


00111101 


075 


61 


3D 


— 


— 


NAK 


00111110 


076 


62 


3E 


] 


> 




00111111 


077 


63 


3F 






SUB 


01000000 


100 


64 


40 




@ 


SP 


01000001 


101 


65 


41 




A 




01000010 


102 


66 


42 




6 




01000011 


103 


67 


43 




C 




01000100 


104 


68 


44 




D 




01000101 


105 


69 


45 




E 




01000110 


106 


70 


46 




F 




01000111 


107 


71 


47 




G 




01001000 


110 


72 


48 




H 




01001001 


111 


73 


49 




I 




01001010 


112 


74 


4A 




J 


[ 


01001011 


113 


75 


4B 




K 


• 


01001100 


114 


76 


4C 




L 


< 


01001101 


115 


77 


4D 




M 


( 


01001110 


116 


78 


4E 




N 


+ 


01001111 


117 


79 


4F 




0 


1 


oloioooo 


120 


80 


50 




P 


& 


01010001 


121 


81 


51 




Q 




01010010 


122 


82 


52 




R 




01010011 


123 


83 


53 




S 




01010100 


124 


84 


54 




T 




01010101 


125 


85 


55 




U 




01010110 


126 


86 


56 




V 




01010111 


127 


87 


57 




W 




01011000 


130 


88 


58 




X 




01011001 


131 


89 


59 




Y 
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Binary 


octal 


Decimal 


Hexadecimal 


DLL AbLll 




01011010 


132 


90 


C A 


z 


J 


01011011 


133 


91 


OS 


r 
L 


<• 


01011100 


134 


ft o 

92 


DC 


\ 


* 


01011101 


135 


93 


ou 


J 


) 


01011110 


136 


94 


5E 




f 


01011111 


137 


95 


5F 




A 


01100000 


140 


96 


60 


• 




01100001 


141 


97 


61 


a 


/ 


01100010 


142 


98 


62 


D 




01100011 


143 


99 


63 


C 




01100100 


144 


100 


64 


a 




01100101 


145 


101 


65 


e 




01100110 


146 


102 


66 


I 




01 100111 


147 


103 


67 


g 




OllOlOOO 


150 


104 


68 


n 




01101001 


151 


105 


69 


i 




01101010 


152 


106 


6A 


J 


1 
1 


01101011 


153 


107 


6B 


i. 

K. 


> 


01101100 


154 


108 


60 


1 




01101101 


155 


109 


6D 


m 


— 


01101110 


156 


110 


6E 


n 


> 


01101111 


157 


111 


6F 


0 


* 


01110000 


160 


112 


70 


P 




01110001 


161 


113 


71 


q 




01110010 


162 


114 


72 


r 




01110011 


163 


115 


73 


s 




01110100 


164 


116 


74 


t 




OlllOlOl 


165 


117 


75 


u 




01110110 


166 


118 


7b 


V 




01110111 


167 


119 


7 7 


w 




01111000 


170 


120 


78 


X 




01111001 


171 


121 


79 


y 


1 


01111010 


172 


122 


7A 


z 




0111101.1 


173 


123 


7B 


< 

t 


If 


01111100 


174 


124 


7C 


1 

1 


A 
@ 


01111101 


175 


125 


7D 


i 


1 


01111110 


176 


126 


7E 






01111111 


177 


127 


7F. 




.11 


10000000 


200 


128 


80 






10000001 


201 


129 


81 




a 


10000010 


202 


130 


82 




b 


10000011 


203 


131 


83 




c 


10000100 


204 


132 


84 




d 


10000101 


205 


133 


85 




e 


10000110 


206 


134 


86 




f 


10000111 


207 


135 


87 




g 


10001000 


210 


136 


88 




h 


10001001 


211 


137 


89 




i 


10001010 


212 


138 


8A 
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10001011 


213 


139 


8B 




10001100 


214 


140 


8C 




10001101 


one 


141 


8D 




10001110 


216 


142 


8E 




10001111 




143 


8F 




10010000 


220 


144 


90 




10010001 


221 


145 


91 


j 


10010010 


»-i O O 

222 


146 


92 


k. 


10010011 


o o o 

223 


147 


93 


1 


10010100 


224 


148 


94 


m 


10010101 


225 


149 


95 


n 


10010110 


226 


150 


96 


o 


10010111 


227 


151 


97 


P 


10011000 


230 


152 


98 


q 


10011001 


231 


153 


99 


r 


10011010 


232 


154 


9A 




10011011 


233 


155 


9B 




10011100 


234 


156 


9C 




10011101 


235 


157 


9D 




10011110 


236 


158 


9E 




10011111 


237 


159 


9F 




10100000 


240 


160 


AO 




10100001 


241 


161 


Al 




10100010 


242 


162 


A2 


s 


10100011 


243 


163 


A3 


t 


10100100 


244 


164 


A4 


u 


10100101 


245 


165 


A5 


V 


10100110 


246 


166 


A6 


w 


10100111 


247 


167 


A7 


X 


10101000 


250 


168 


A8 


y 


10101001 


251 


169 


A9 


z 


10101010 


252 


170 


AA 




10101011 


253 


171 


AB 




10101100 


254 


172 


AC 




10101101 


255 


173 


AD 




10101110 


256 


174 


AE 




10101111 


257 


175 


AF 




10110000 


260 


176 


BO 




10110001 


261 


177 


Bl 




10110010 


262 


178 


B2 




10110011 


263 


179 


B3 




10110100 


264 


180 


B4 




10110101 


265 


181 


B5 




10110110 


266 


182 


B6 




10110111 


267 


183 


B7 




10111000 


270 


184 


BS 




10111001 


271 


185 


B9 




10111010 


272 


186 


BA 




10111011 


273 


187 


BE 
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10111100 


274 


188 


BC 




10111101 


275 


189 


BD 




10111110 


276 


190 


BE 




10111111 


277 


191 


BF 




11000000 


300 


192 


CO 


{ 


11000001 


301 


193 


CI 


A 


11000010 


302 


194 


C2 


B 


11000011 


303 


195 


C3 


C 


11000100 


304 


196 


C4 


D 


11000101 


305 


197 


C5 


E 


11000110 


306 


198 


C6 


F 


11000111 


307 


199 


C7 


G 


11001000 


310 


200 


C8 


H 


11001001 


311 


201 


C9 


I 


11001010 


312 


202 


CA 




11001011 


313 


203 


CB 




11001100 


314 


204 


CC 




11001101 


315 


205 


CD 




11001110 


316 


206 


CE 




11001111 


317 


207 


CF 




11010000 


320 


208 


DO 


} 


11010001 


321 


209 


Dl 


J 


11010010 


322 


210 


D2 


K 


11010011 


323 


211 


D3 


L 


11010100 


324 


212 


D4 


M 


11010101 


325 


213 


D5 


N 


11010110 


326 


214 


D6 


C 


11010111 


327 


215 


D7 


P 


11011000 


330 


216 


D8 


Q 


11011001 


331 


217 


D9 


R 


11011010 


332 


218 


DA 




11011011 


333 


219 


DB 




11011100 


334 


220 


DC 




11011101 


335 


221 


DD 




11011110 


336 


222 


DE 




11011111 


337 


223 


DF 




11100000 


340 


224 


EO 


\ 


11100001 


341 


225 


El 




11100010 


342 


226 


E2 


S 


11100011 


343 


227 


E3 


T 


11100100 


344 


228 


E4 


U 


11100101 


345 


229 


E5 


V 


11100110 


346 


230 


E6 


W 


11100111 


347 


231 


E7 


X 


11101000 


350 


232 


E8 


Y 


11101001 


351 


233 


E9 


Z 


11101010 


352 


234 


EA 




11101011 


353 


235 


EE 




11101100 


354 


236 


EC 
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11101101 


355 


237 


ED 




11101110 


35b 


238 


EE 




11101111 


357 


239 


EF 




11110000 


360 


240 


FO 


0 


11110001 


361 


241 


Fl 


1 


11110010 


362 


242 


F2 


2 


11110011 


363 


243 


F3 


3 


11110100 


364 


244 


F4 


4 


11110101 


365 


245 


F5 


5 


11110110 


366 


246 


F6 


6 


11110111 


367 


247 


F7 


7 


11111000 


370 


246 


F8 


8 


11111001 


371 


249 


F9 


9 


11111010 


372 


250 


FA 




11111011 


373 


251 


FB 




11111100 


374 


252 


FC 




11111101 


375 


253 


FD 




11111110 


376 


254 


FE 




11111111 


377 


255 


FF 
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Default Character Type 

The default character type is the character type assumed by pointers, 
string variables, string literals, and so on when a. character type is 
not escplicitly specified. The default character type is also used as 
the default value of the INTMODE file attribute. For more information 
on INTMODE, refer to the "I/O Subsystem Reference Manual." 



Two compiler control options affect the default character type: the 
ASCII option and the BCL option. (For more information, refer to the 
ASCII option and the BCL option under "<ASCII option>" and "<BCL 
option>,*' respectively, in the "Compiling Programs" chapter.) If the 
ASCII option is TRUE, the default character type is ASCII. If the BCL 
option is TRUE, the default character type is BCL. If neither the ASCII 
option nor the BCL option is TRUE, the default character type is EBCDIC. 



Free-field and formatted I/O generate either EBCDIC or BCL data 
depending on the default character type. If the default character type 
is BCL, BCL data is generated. If the default character type is EBCDIC 
or ASCII, EBCDIC data is generated. 



The example programs below demonstrate the effects of different default 
character types. 



See also 

<ASCII option>. . . . . . 603 

<BCL option> 605 



Examples 



%%% PROGRAM 1 %%% 
BEGIN 

% OPTION RECORD 

FILE F(KIND=DISK,NEWFILE=TRUE) ; 
ARRAY A[0:93; 
POINTER P; 

STRING S; % DECLARATION OF S 

OPEN(F); 

P := POINTER(A): 

S := "ABC"; % STRING ASSIGNMENT 

END . 
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If this example is compiled and executed as is, the default character 
type is EBCDIC. Thus, the INTMODE attribute of file F is EBCDIC, the 
character size of pointer P is eight bits, the string type of string S 
is EBCDIC, and, after the string assignment is executed, S contains the 
EBCDIC string "ABC". 



If "% OPTION RECORD" on the third line is replaced by the compiler 
control record "$ SET ASCII", and the program is compiled and executed, 
the default character type is ASCII. Thus, the INTMODE of file F is 
ASCII, the character size of pointer P is eight bits, the string type of 
string S is ASCII, and, after the string assignment is executed, S 
contains the ASCII string "ABC". 



If program 1 is compiled after "% OPTION RECORD" is replaced by the 
compiler control record "$ SET BCL" , the default character type is BCL 
and the program is flagged with two syntax errors — one on the 
declaration of string S and one on the string assignment — because string 
variables cannot be of type BCL. 



%%% PROGRAM 2 %%% 

BEGIN 

$ SET BCL 

FILE F(KIND=DISK,NEWFILE=TRUE) ; 

ARRAY A[0:9]; 

POINTER P; 

OPEN(F); 

P := POINTER(A); 

REPLACE P BY "ABC"; % REPLACE STATEMENT 
END. 



Program 2 contains the compiler control record "$ SET BCL" and has no 
string constructs. It compiles without error. If program 2 is compiled 
and executed, the default character type is BCL. Thus, the INTMODE of 
file F is BCL, the character size of pointer P is six bits, and, after 
the REPLACE statement is executed, P references the BCL characters "ABC" 
stored in array A. 



Program 2 is flagged with a warning message when it is compiled, because 
the BCL character type is not supported on all A Series and 
B 5000/B 6000/B 7000 Series systems. 



819 

Data Representation 



Signs of numeric Fields 



Certain operations in ALGOL require an indication of a numeric sign in 
character data. The sign of a numeric field is represented as follows: 



8-bit characters 



The sign is in the zone field of the least 
significant character (field [7:4] of the character). 
A bit configuration of 1*'1101" (4"D") indicates a 
negative number; any other bit configuration 
indicates a positive number. 



6-bit characters 



The sigh is in the zone field of the least 
significant character (field [5:2] of the character). 
A bit configuration of 1"10" indicates a negative 
number; any other bit configuration indicates a 
positive number. 



4-bit digits 



The sign is carried as a separate digit, and it is 
■the most significant digit of the field. A bit 
configuration of 1"1101" (4"D") indicates a negative 
number; any other bit configuration indicates a 
positive number. 
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ONE-WORD OPERAND 

Real, integer, and Boolean operands each require one word of storage. 
Real Operand 

The internal structure of a real operand is illustrated in Figure B-6. 



Not 

Used 

47 


E 

X43 


39 


36 


31 


27 


23 


19 


15 


11 


7 


3 


M 

46 


P 


38 


34 


30 


M 

26 


anti£ 

22 


sa 

18 


14 


10 


6 


2 


E 

45 


n 

6 41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 


44 


n 

% 4C 


36 


32 


28 


24 


20 


16 


12 


8 


4- 


0 



Field Use 

Tag C 

[47:1] Not used 

[46:1] Sign of mantissa: 1 = negative. 0 = positive 

[45:1] Sign of exponent: I = negative, 0 = positive 

[44:6] Exponent 

[38:39] Mantissa 



Figure B-b. Real Operand 



Real (single-precision. floating-point) values are represented 
internally in signed-magnitude , mantissa-and-exponent notation. The 
sign of the mantissa is contained in bit 4b. and the sign of the 
exponent is contained in bit 45. A minus sign is denoted by a 1 in the 
appropriate sign bit. The magnitude of the exponent is contained in 
field [44:6]; hence, the maximum absolute value of an exponent in a real 
operand is 2**6-1 = 63. The magnitude of the mantissa is contained in 
field [38:39]; hence, the maximum absolute value of a mantissa in a real 
operand is 2**39-1. There is an implied radix point to the right of bit 
zero. 



Data Representation 



The value represented by a real operand can be obtained by the following 
formula: 

(mantissa) * 8" *{ exponent ) 



Certain operations, such as the NORMALIZE function, return a 
"normalized" real operand as their result. A normalized real operand is 
a real operand in which the leftmost octade (3-bit field) of the 
mantissa is nonzero. For example, the real value 0.5, in normalized 
form, is represented internally as 4"26C000000000" . In this example, 
the mantissa is 4 * 8**12 and the exponent is -13. 



Integer Operand 



The internal structure of an integer operand is illustrated in Figure 
B-7. 
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Field Use 

Tag 0 

[47:1] Not used 

[46:1] Sign: 1 = negative, 0 = positive 

[45:1] Not used 

[44:6] 0 

[38:39] Magnitude 



Figure B-7. Integer • Operand 



Integer values are represented internally in signed-magni tude notation. 
The sign of the value is denoted by bit 46 of the data word. A minus 
sign is denoted by a 1 in bit 46. The magnitude of the value is stored 
in field [38:39]. The maximum absolute value of an integer operand is 
2**39-1. There is an implied radix point to the right of bit zero. 
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For example, the internal representation of the integer 10 is 

4"0O0000OO000A" 
The internal representation of -10 is 

4"40000000000A" 
The internal representation of 99 , 999 , 9<?9 , 999 is 

4"00174876E7FF" 
The internal representation 

4"007FFFFFFFFF" 

represents the decimal value 549,755,813,887 (the maximum value an 
integer operand can contain). A larger value would have to be stored in 
a real operand or a double-precision operand. 

Note that the internal format of an integer operand is the same as the 
internal format of a real operand with an exponent of zero. 
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Boolean Operand 

The internal structure of a Boolean operand is illustrated in Figure 
B-8. 
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Field Use 

Tag 0 

[47:47] Any bit or field within this field can be referenced 

as a Boolean value using the <partial word part> or 
<concatenation > constructs. 

[0:1] The Boolean value of the operand as a whole. 

Figure B-S. Boolean Operand 



Boolean operations are performed on a bit-by-bit basis on all 48 bits of 
a Boolean operand. The one exception is the NOT operation performed on 
an arithmetic relation, where NOT is performed on the low-order bit (bit 
zero), but not necessarily on the other 47 bits. However, when a 
Boolean operand is referenced as a whole, only the low-order bit (bit 
zero) is significant (0 is FALSE, 1 is TRUE). 



In Figure B-8, the shaded V's indicate that each bit of the entire 
48-bit Boolean operand can be used to store an individual Boolean value. 
The individual bits can be referenced by using the <partial word part) 
and <concatenation> constructs. 
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TWO-WORD OPERAND 



Double-precision and complex operands each require two words of storage. 



Double-Prec 1 s ion Operand 



The internal structure of a double-precision operand is illustrated in 
Figures B-9 and B-10. 
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Field Use 

Tag 2 

[47:1] Not used 

[46:1] Sign of mantissa: 1 = negative, 0 = positive 

[45:1] Sign of exponent: 1 = negative, 0 = positive 

[44:6] Least significant portion of the exponent 

[38:39] Most significant portion of the mantissa 



Figure B-9. 



First Word, Double-Precision Operand 
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Field 



Use 



Tag 

[47:9] 

[38:39] 



Most significant portion of the exponent 
Least significant portion of the mantissa 



Figure B-10. Second Word, Double-Precision Operand 



Double-precision values are represented internally in signed-magnitude, 
mant issa-and-exponent notation. The sign of the mantissa is contained 
in bit 4b of the first data word, and the sign of the exponent is 
contained in bit 45 of the first data word. A minus sign is denoted by 
a 1 in the appropriate sign bit. 



The magnitude of the exponent of a double-precision operand is contained 
in a total of 15 bits. The most significant nine of these 15 bits are 
contained in field [47:9] of the second data word. The least 
significant six of these 15 bits are contained in field [44:6] of the 
f irst data word. 



The magnitude of the mantissa of a double-precision operand is 
represented by a total of 78 bits. The most significant 39 bits are 
contained in field [38:39] of the first data word. The least 
significant 39 bits are contained in field [38:39] of the second data 
word. There is an implied radix point to the right of bit zero of the 
first data word; that is. between the most significant and least 
significant parts of the mantissa. 
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The value represented by a double-precision operand can be obtained by 
the following formula: 

(MM + LM * 8**(-13)) * 8**(ME * 2**6 + LE) 



where 



- MM is the most significant part of the mantissa. 

- LM is the least significant part of the mantissa. 

- ME is the most significant part of the exponent. 

- LE is the least significant part of the exponent. 



Certain operations return a "normalized" double-precision operand as 
their result. A normalized double-precision operand is a 
double-precision operand in which the leftmost octade (3-bit field) of 
the full 78-bit mantissa is nonzero. For example, the double-precision 
value lia@0, in normalized form, is represented internally as 

4"261000000000" . 4"00000000000C" 

In this example, the mantissa is 1 * 8**12 and the exponent is -12. 



Complex Operand 



A complex operand requires two words of storage. The first word 
contains the real part of the complex value; the second word contains 
the imaginary part. The internal structure of both the real and 
imaginary parts of the complex value is identical to the internal 
structure of a real operand. (For more information, refer to "Real 
Operand" in this appendix.) 
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MTA PSggRIPTORg ME PQiyT ER 



An unindexed data descriptor is the mechanism used on A Series and 
B 5000/B 6000/B 7000 Series systems to represent the contents of an 
array. An indexed data descriptor is used to reference one element of a 
word array. A pointer references one character within a word or 
character array. 



The internal structures of, unindexed data descriptors, indexed data 
descriptors, and pointers are illustrated in Figures B-11, B-12, and 
B-13, respectively. 



828 



ALGOL REFERENCE MANUAL 



Bit 

47 


It— r1" 

onHsr 
Bit 

43 


39 


35 


31 


27 


23 


10 


15 


11 


7 


3 


Oopjr 
Bit 

46 


Size 

42 


36 


L 

34 


^engt 

30 


\ 

2e 


22 


18 


A 

14 


ddres 

10 


S5 

6 


2 


■"0 

45 


41 


37 


33 


28 


25 


21 


OV 

17 


lemc 

13 


ry o: 

8 


S 


0 

. 1 


BiT* 

44 


40 


36 


32 


28 


24 


20 


16 


12 


B 


4 


0 



Field Use 

Tag 5 

[47:1] Presence bit: 1 = present, 0 = absent 

[46:1] Copy bit: 1 = copy, 0 = mom (original) 

[45:1] Indexed bit: 0 = un indexed 

[44:1] Paged bit: 1 = paged. 0 = unpaged 

[43:1] Read-only bit: i = read-only. 0 = read/write 

[42:3] Element size (type of the array): 

0 = single precision, 1 = double precision. 

2 = hexadecimal, 3 = BCL, 4 = EBCDIC/ASCII 
[39:20] Length (number of elements in the array) 

[19:20] Address: 



- When present, the memory address of the beginning 
of the array 

- When absent and mom, the software-encoded address 
of the array in storage 

- When absent and copy, the memory address of the 
associated mom descriptor 



Figure B-11. Unindexed Data Descriptor 
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Field U§£ 

5 . ■ 

Presence bit; 1 = present, 0 = absent 
Copy bit: 1 = copy 
Indexed bit: 1 = indexed 
Paged bit: 0 = unpaged 

Read-only bit: 1 - read-only, 0 = read/write 
Element size (type of the array): 

0 = single precision. 1 = double precision 
[39:20] Index of the element in the array (relative to 

zero ) 

[19:20] Address: 

- When present, the memory address of the beginning 
of the array 

- When absent, the memory address of the associated 
unindexed mom data descriptor 



Tag 

[47:1 1 
[4b:l] 
[45:1] 
[44:1] 
[43:1] 
[42: 3] 



Figure B-12. Indexed Data Descriptor 
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Use 



Tag 

[47:1] 

[46:1] 

[45:1] 

[44:1] 

[^3:1] 

[42:3] 

[39:4] 

[ 35:16] 

[19:20] 



Presence bit: 1 = present, 0 = absent 
Copy bit: 1 = copy 
Indexed bit: 1 = indexed 
Paged bit: 0 = unpaged 

Read-only bit: 1 = read-only, 0 = read/write 
Element size (type of the pointer): 

2 = hexadecimal, 3 = BCL, 4 = EBCDIC/ASCII 
Character index: the zero-relative index in the 

word of the referenced character 
Word index: the zero-relative index in the array of 

the referenced word 
Address : 

- When present, the memory address of the beginning 
of the array 

- When absent, the memory address of the associated 
unindexed mom data descriptor 



Figure B-13 



Pointer 
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C RUM-TIME FORMAT-ERROR MESSAGES 



Free- field Input 



The meanings of the format-error numbers pertaining to free-field input 
are given in the following table. 



Number Error Message 



400 An error occurred on free-field input. 

41b Evaluation of a list element caused an I/O action on the current 
file. 

420 Input from the <core-to-core file part> required more records 
than allowed by the <core-to-core blocking part >. 

442 The input data corresponding to a single-precision list element 
consisted of a hexadecimal string of more than 12 significant 
digits. 

443 The input data contained a he;cadecimal string containing 
nonhexadecimal characters. 

444 The input data corresponding to a double-precision list element 
consisted of a hexadecimal string of more than 24 significant 
digits. 

462 The next list element was a pointer, and the corresponding input 
data consisted of a quoted string that had been only partially 
assigned. 

467 The input data contained a value greater than the maximum value 
allowed for the corresponding list element. 

473 The input data contained a strimg with no trailing quotation mark 
character. 

484 An expression was used as a list element on input. 
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Formatted Output 



The meanings of the format-error numbers pertaining to formatted output 
are given in the following table. 



Number Error Message 



100 An error occurred on formatted output. 



102 The editing phrase letter was V, and the data specified by the 
list element did not produce an A, C. D. E, F, G. H, I, J, K, L. 
0, P. R, S. T, U, X, or Z in the appropriate character position. 

103 The editing phrase was of the form rV. and the resulting 
specifier required a <field width>. 

104 The editing phrase was of the form rV. and the resulting 
specifier required a <field width> and <decimal places>. 

105 The editing phrase was of the form Fw.d, and d was less than 
zero. 

lOfc The editing phrase used was Fw.d, and d was less than zero. 

107 The editing phrase used was Ew.d or Dw.d, and d was less than 
zero. 

109 The editing phrase used was Zw, and the corresponding list 
element was not of type INTEGER or BOOLEAN. 

110 The type of the input data was not compatible with the type of 
the corresponding list element. 



Ill The editing phrase was of tne form Zw.d. The phrase chosen to 
edit the output was Ew.d. but d was less than zero. 

113 The editing phrase used was Ew.d or Dw.d, and w was less than or 
equal to d. 

114 The value of a dynamic w or d part was greater than the maximum 
allowable integer ( 54<5 , 755 . 81 3 . 887 ) . 

116 Evaluation of a list element caused an I/O action on the current 
file (recursive I/O). 

117 An attempt was made to write a number of characters greater than 
the record size. 



120 



Output to the <core-tc-core file part> required more records than 
allowed by tne <core-to-core bloclcing part > . 



Run-Time Format -Error Messages 
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Formatted Output, continued 
Number Error Message 



131 The value of a dynamic r part was greater than the maximum 
allowable real value (4.31359146673 * 10**68). 

132 The value of a dynamic w part was greater than the maximum 
allowable integer (549.755,813.8:87). 

133 The value of a dynamic d part was greater than the maximum 
allowable integer (549,755.813.8187). 



163 The record size was not large einough to allow the free-field 
write specified. 
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Formatted Input 



The meanings of the format-error numbers pertaining to formatted input 
are given in the following table. 



Number Error Message 



200 An error occurred on formatted input. 

202 The editing phrase letter was V, and the data specified by the 
list element did not produce an A, C, D, E, F, G, H, I, J, K, L, 
0, P, R, S, T, U, X, or Z in the appropriate character position. 

203 The editing phrase was of the form rV, and the resulting 
specifier required a <field width>. 

204 The editing phrase was of the form rV, and the resulting 
specifier required a <field width> and <decimal places>. 

205 The editing phrase was of the form rVw, and the resulting 
specifier required <decimal places>. 

206 The editing phrase used was Fw.d, and d was less than zero. 

207 The editing phrase used was Ew.d or Dw.d, and d was less than 
zero. 

209 The editing phrase used was Zw, and the corresponding list 
element was not of type INTEGER or BOOLEAN. 

210 The type of a list element was incompatible with the 
corresponding editing phrase. 

213 The editing phrase used was Ew.d or Dw.d, and w was less than or 
equal to d. 

214 The value of a dynamic w or d part was greater than the maximum 
allowable integer (549,755,813.887). 

216 Evaluation of a list element caused an I/O action on the current 
file (recursive I/O). 

217 An attempt was made to read a number of characters greater than 
the record size. 

218 The editing phrase letter was H or K, but the input data 
contained nonblank, nonhexadecimal characters or nonblank, 
nonoctal characters, respectively. 



Run-Time Format-Error Messages 
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Formatted Input , continued 
Number Error Message 



220 Input from the <core-to-core file part> required more records 
than allowed by the <core-to-core blocfeing part>. 

231 The value of a dynamic r part was greater than the maximum 
allowable real value (4.31359146673 * 10**68). 

232 The value of a dynamic w part was greater than the maximum 
allowable integer (549,755,813,887). 

233 The value of a dynamic d part was greater than the maximum 
allowable integer (549,755,813,887). 

250 Input was attempted using a U editing phrase. 

271 Input was attempted using a $ or P format modifier. 

281 The input data was invalid for an I editing phrase. 

284 An expression was used as a list element on input. 

285 The list element was of type REAL, but the corresponding input 
data contained a value greater than the maximum allowable real 
value (4.31359146673 * 10**68). 

286 The list element was of type INTEGER or BOOLEAN, but the input 
data contained a value greater than the maximum allowable integer 
(549,755.813,887). 

291 The input data corresponding to a numeric editing phrase 
contained a nondigit character in the exponent part following at 
least one valid digit. 

292 The input data corresponding to a numeric editing phrase 
contained more than one sign in the exponent part. 

293 The input data corresponding to a numeric editing phrase 
contained an invalid character after the exponent sign and before 
the exponent value. 

294 The input data corresponding to a numeric editing phrase 
contained an invalid character after the decimal point. 

295 The input data corresponding to a numeric editing phrase 
contained more than one sign in the mantissa. 
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UNDERSTANDING RAILRjOAD pIAGRAMS 



}gMr IS A RAILROAD DIAGRAM? 



A railroad diagram is a way of representing the syntax of a command or 
statement graphically. It shows which items are required or optional, 
the order In which they should appear, how often you can repeat them, 
and any required punctuation. 



HOW TO READ A RAILROAD DIAGRAM 



Normally, you read a railroad diagram from left to right. However, 
there are some exceptions; in those cases, arrows indicate a 
right-to-left direction. 



If a diagram is too long to fit on one line and must continue on the 
next, a right arrow (>) appears at the end of the first line and another 
at the beginning of the next line, like this: 

. : ■ . ,. . > 

> . ^- 



The end of a railroad diagram is denoted by a vertical bar ( | ) or 

percent sign (%). The vertical bar means the command or statement can 

be followed by a semicolon and another command or statement. The 

percent sign means the command or statement must be on a line by itself. 



CONSTANTS AND VARIABLES 



Consider a hypothetical command for giving instructions to a house 
painter : 



~ PAINT 



- THE - 



- LIVING ROOM < color >■ 

- DINING ROOM - ! 

! 

- BEDROOM ! 

1 
I 

- BATHROOM — - ! 

r . 

- KITCHEN I 
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This command tells the painter to paint a designated room in the color 
you specify. 

The example introduces two important features of railroad diagrams: 
Constants 
- Variables 



Constants 



Constants are items that you cannot vary. You must enter a constant as 
it appears in the diagram, either in full or abbreviated. If you 
abbreviate a constant, you must enter everything that is underlined in 
the railroad diagram, optionally followed by one or more of the 
remaining characters. 



You can recognize constants in railroad diagrams by the fact that they 
are never enclosed in angle brackets. 



In the example, the word PAINT is a constant. You could enter PAINT in 
full or abbreviate it to PAI or PAIN, but not to PA or PAN. If no part 
of the constant is underlined, you cannot abbreviate it at all. 



Variables 



Variables are items that you can replace with other data to suit a 
particular situation: that is. you can vary the information you enter in 
place of the variable, subject to rules defined for the particular 
command or statement . 



Variables appear in a railroad diagram enclosed in angle brackets (<>). 

In the example. <color> is a variable item. If the description of the 
PAINT command defines the allowable colors as BLUE, GREEN, PINK, and 
YELLOW, you can enter any one of these in your command. 
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FOLLOWING THE PATHS OF A RAILROAD DIAGRAM 



The paths Of a railroad diagram lead you through the diagram from 
beginning to end. They are represented by horizontal and vertical 
lines. 



A path shows the allowable syntax. Some diagrams have just one path 
that goes from the beginning to the end of the diagram. Others contain 
several paths, each covering a part of the diagram. A path shows which 
items you can include in a command or statement, which you can omit, and 
the number of times you can include a particular item or group of items. 

To follow a path through a railroad diagram, you need to understand the 
items you may encounter along the way. These items are 

Required items and punctuation 

Optional items 

Loops 



A description of each item follows. 



Required Items and Punctuation 



Required items and punctuation must be entered in the command or 
statement; you cannot omit them. A required item appears by itself in a 
path (horizontal line). A required item can be either a constant or a 
variable. For example, if a railroad diagram indicates 



— PAINT — BEDROOM ~ < color >—! 



the words PAINT and BEDROOM are required constants, and <color> is a 
required variable. You could correctly enter 

PAINT BEDROOM BLUE 



but not 

PAINT BEDROOM 



because the required item <color> would be missing. 
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Optional Items 



Optional items appear one below another in a vertical list. You can 
choose any one of the items in the list. If the list also contains an 
empty path (all dashes), you can omit the item entirely. An optional 
item can be either a variable or a constant. The PAINT command in the 
example contains two lists. The first is 



t- THE -I 



which gives you two options: 

- Enter the constant THE 

- Omit it (because there is an empty path) 



The second list has five optional constants: 

LIVING ROOM -I 

I I 

I- DINING ROOM -1 

I- BEDROOM — I 

I - BATHROOM I 

I- KITCHEN i 



You must enter one of the optional items (LIVING ROOM. DINING ROOM, 
BEDROOM, BATHROOM, or KITCHEN) because there is no empty path in this 
list. 



Loops 



A loop is an item or group of items that you can repeat. The number of 
repetitions allowed is controlled by an item called the bridge. 
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A loop can span all or part of a railroad diagram. It always consists 
of at least two horizontal lines, one below the other, lilce this: 



|< ■ — < return chairacter> i 

I . I 
— <bridge> — <content of the loop>- 

or 

|<— <bridge> — <return character > — ! 
I I 
, eContent of the loop> — ■— 



The bridge shows the maximum number of times you can go through the 

loop. The bridge can precede the contents of the loop,, or it can 

precede the return character on the upper line of the loop to specify 

the number of times the right-to-left path can be traversed. The bridge 

is an integer enclosed in sloping lines. / \, for example, /4\ . Not all 

loops have bridges. Those that do not can be repeated any number of 
times. 



The top line is a right-to-left path that contains information about 
repeating the loop. The return character is the character to use before 
each repetition of the loop (often, a comma). Not all loops contain a 
return character; if none is shown, just enter one or more spaces before 
repeating the loop. 



The other lines show the content of the loop (the data you enter each 
time you go through the loop). This can be any combination of optional 
items, required items, lists, and even other loops. The content of a 
loop can range from simple (one item), to very complex (many items, 
lists, and loops). 



iBxample 1. A Simple I<oop 



The PAINT command as first shown is of limited usefulness. To tell the 
painter to do several rooms, you need a separate command for each room. 
It would be much easier if you could tell him to do several rooms in one 
command. 



You can do that by making the list of rooms into a loop. The command 
would then look, like this: 
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|< , 

! 

~ PAINT /5\ LIVING ROOM ~ 

I I 

- THE -I I- DINING ROOM - 

- BEDROOM ~ 

- BATHROOM 

- KITCHEN ~ 



<color > — I 



The bridge has a value of 5, so you can go through the loop up to five 
times, for a total of five rooms. The return character is a comma, 
which you must enter before repeating the loop content. 



You can now enter 

PAINT THE LIVING ROOM. BEDROOM, KITCHEN YELLOW 

or 

PAINT DINING ROOM, BEDROOM, BATHROOM BLUE 



or 

PAINT BEDROOM PINK 



or 

PAINT BEDROOM, BATHROOM, BEDROOM, BEDROOM BLUE 



or any other valid combination. 



This simple loop mak.es the PAINT command more versatile, but a 
significant drawback, remains. Although you can include up to five rooms 
in a command, you cannot specify different colors. 
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ICxample 2. A More Complex Loop 



If the content of the loop were to include the color, you could specify 
a different color for each room. 



,<_____ _ , 1 

! I 
~ PAINT /5\ LIVING ROOM < color > I 

I I ! I 

i- THE -I I- DINING ROOM -I 

■ I • ■ . "i 

I- BEDROOM i 

■ I I 
I- BATHROOM i 

I I 
I- KITCHEN ! 

The content of the loop now consists of the 

- List of optional constants that indicate rooms 

- Required variable <color> 

The bridge value is 5, and the return character is a comma. Given this 
railroad diagram, some valid PAINT commands would be 

PAINT THE BEDROOM PINK 

PAINT THE LIVING ROOM BLUE, DINING ROOM GREEN, KITCHEN YELLOW 
PAINT BEDROOM GREEN, KITCHEN BLUE 



and so on. 
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Example 3. 



Another Loop 



In some bridges an asterisk follows the number. For example. 



l<-/4*\ 



— PAINT 



LIVING ROOM <color> t 



I- THE -i 



- DINING ROOM - 



- BEDROOM 



- BATHROOM 



- KITCHEN 



The asterisk means you must take the right-to-left path at least once. 
You cannot, for example, enter PAINT BEDROOM BLUE; you must tell the 
painter at least two rooms to paint. The maximum number of rooms to be 
painted is still five; the first time through the loop with up to four 
repetitions. 



A valid form of the command would be 
PAINT BEDROOM BLUE, KITCHEN YELLOW 



Example 4. Another Use of the Bridge 



A bridge can also control the number of times you take an individual 
path within a loop. For example, another command to the painter might 
be: 



— WORK 



/1\ 



EVENINGS 



i-/l\ 



WEEKENDS -! 



!-/l\ 



HOLIDAYS -I 
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Understanding Railroad Diagrams 

Each bridge /1\ indicates you can take that path once or not at all. 
That is. you can enter each of the items EVENINGS, WEEKENDS, and 
HOLIDAYS once at most. Some valid commands are 

WORK EVENINGS WEEKENDS HOLIDAYS 

WORK WEEKENDS 

WORK HOLIDAYS EVENINGS 



but 

WORK EVEN INGS EVEN I NGS 



is invalid. 



A FINAL WORD 



To familiarize you with railroad diagrams, this explanation describes 
the elements of the diagrams and gives a few simplified examples. Some 
of the actual diagrams you will encounter in a book may be considerably 
more complex. 



However, the principles are the same no matter how complex the diagram. 
The more you work with railroad notation, the more easily you will 
understand even the most complex diagrams. 
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accidental entry 
See "thunit.** 



address cotiple 

A representatioh Of the address of an item in a program. An address 
couple consists of two numbers: the first number is a lexical 
level, and the second number is a displacement (offset) within that 
lexical level. 



address e(|uatiOh 

The process of declaring an identifier to have the same address as a 
previously declared identifier. 



ASCII 

American standard Code for Information Interchange. A 7- or 8-bit 
code representing a set of 128 control and graphic characters. 



asynchronous process 

A procedure initiated by a program as a separate task that is 
dependent on the initiating program for globals but otherwise runs 
independent of and in parallel with the initiating program. 



bad g6 to 

A GO TO Statement in an inner block, that transfers control to a 
label that is global to that block. A necessary side effect of a 
"bad go to** is that the block in which it occurs is exited abruptly 
and local variables are deallocated immediately. 



BCL 



See "Burroughs Common Language." 
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Burroughs Common Language (BCL) 

An obsolete code using b-bit character representation. BCL is not 
available on A Series or on most B 5000/B 6000/B 7000 Series systems 
(such as B 5900 systems). 



call -by -name 

A method of passing a parameter to a procedure where every reference 
to the formal parameter within the procedure body causes the actual 
parameter to be evaluated. Any change made to the value of the 
formal parameter within the procedure body also changes the value of 
the corresponding actual parameter outside the procedure body. 



call-by-reference 

A method of passing a parameter to a procedure where the actual 
parameter's address is evaluated once and passed to the formal 
parameter. Every reference to the formal parameter within the 
procedure body thus references this address. Any change made to the 
value of the formal parameter within tne procedure body also changes 
the value of the corresponding actual parameter outside the 
procedure body. 



call-by-value 

A method of passing a parameter to a procedure where the value of 
the actual parameter is assigned to the formal parameter, which is 
thereafter handled as a variable that is local to the procedure 
body. Any change made to the value of a call-by-value formal 
parameter has no effect outside the procedure body. 



CANDE 

Command AND Edit. A Burroughs Message Control System (MCS) that 
provides generalized file preparation and updating capabilities and 
task control in an interactive, terminal-oriented environment. 



character array 



An array whose elements are ASCII, BCL, EBCDIC, or hexadecimal 
characters. 
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code segment descriptor 

A descriptor that references a code segment. 



control variable 

The variable that controls the repetitive execution of an iterative 
statement. 



copy descriptor 

A descriptor that has a one in the copy bit (bit 46). A copy 
descriptor is derived from a inom descriptor, and there can be 
multiple copy descriptors to the same data segment. 



coroutine 

A process in which two programis execute in parallel, but not 
simultaneously, passing control back and forth to each other and 
running alternately. 



critical block 

The block within a program initiating an asynchronous process or a 
coroutine that must not be exited until the process or coroutine 
finishes executing. As long as the critical block is not exited, 
the process or coroutine has access to necessary globals in the 
initiating program. 



descriptor 

A word, distinguished by its format, that is used to refer to data 
segments and code segments. 



Dl stack (D[l] stack) 

A Stack created for each object code file that contains code segment 
descriptors and descriptors to read-only arrays. The Dl stack is 
also referred to as the "segment dictionary." 
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D2 Stack (D[ 2] stack.) 

A Stack initiated for each executing program that is used for 
storage of items declared in the outer block and other items 
allocated at lexical level two. 



EBCDIC 

Extended Binary coded Decimal Interchange Code. An 8-bit code, 
capable of representing 25b graphic and control characters that are 
the native character set of A Series and B 5000/B 6000/B 7000 Series 
systems. 



equivalent array 

An array that is declared to refer to the same data as another 
array. 



external sign flip-flop (EXTF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of EXTF reflects information about the signs 
of numeric quantities. 



EXTF 

See "external sign flip-flop.** 



fault 

An error encountered by a hardware operator. 



FIB 

See "File Information Block." 



file equation 

A mechanism for specifying the values of file attributes when a 
program is compiled or executed* 



Glossary 
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File Information Block (FIB) 

A data structure in an . object codie file that contains information 
describing a file. 

float flip-flop (FLTF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of FLTF reflects information about the 
insertion of floating characters into character strings. 



FLTF 

See "float flip-flop." 

fully specified formal procedure 

A procedure parameter (formal procedure) that is declared with the 

word "FORMAL" in its declaration. With such procedures, the 

compiler checfcs the parameters of the actual procedure passed to it 
at compile time. 

global Identifier 

Within a given block., an identifier that is declared in an outer 
block. A global identifier retains its values and characteristics 
as the blocks to which it is global are entered and exited. 

Halt/Load 

A system-initialization procedure that loads a fresh version of the 
Master Control Program (MCP) from disk or pack to main memory. 



host program 

A program to which separately compiled procedures can be bound by 
the Binder program or by using the sepcomp facility. 
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lex level • 

See "lexical level." 



lexical level (lex level) 

A number that indicates the relative level of a local addressing 
space within the stack of an executing program. The outer block of 
an ALGOL program is allocated at lexical level two. Procedures 
declared at the outer block level execute at lexical level three, 
procedures declared within those procedures execute at lexical level 
four, and so on, up to lexical level 15 or 31, depending on the 
computer family. The first number in an address couple is the 
lexical level of the item. 



library 

A program containing one or more procedures or "entry points" that 
can be called by other programs. Unlike a regular program, which is 
always entered at the beginning, a library can be entered at any of 
these entry points. 



local Identifier 

Within a given block, an identifier that is declared in that block. 
The value or values associated with that identifier inside the block 
are not associated with that identifier outside the block. In other 
words, on entry to a block, the values of local identifiers are 
undefined; on exit from the block, the values of local identifiers 
are lost. 



Master Control Program (MCP) 

The operating system on A Series and B 5000/B bOOO/B 7000 Series 
systems: the program that controls the operational environment of 
the system. This control includes memory management, job selection, 
peripheral management, system utilization, program segmentation, 
subroutine linkage, and error logging. 



MCP 

See "Master Control Program." 
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mom cjescriptor 

A descriptor that has a zero in the copy bit (bit 46). For every 
data segment in a program, there is one and only one mom descriptor. 



OFFF 

S6e "overflow flip-flop." 



original array 

An array that is declared with a bound pair list. Each original 
array is distinct from all other original arrays. 



overflow flip-flop (OFFF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of OFFF reflects whether or not an overflow 
occurred when a numeric quantity was converted to a character string 
of fixed length. 



paged array 

An array that is automatically divided ("paged" or "segmented") at 
run time into segments of 25fc words each. 

primary coroutine 

A program that initiates a procedure as a coroutine. 



ready queue 

A queue of tasks that are capable of running. Tasks that are to 
begin executing are taken from this queue by the system. 



referred array 

An array identifier that — through array row equivalence, an array 
reference assignment, or because it is a formal array — refers to 
data in another array. 
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save memory 

An area of memory that cannot be overlaid as long as the item with 
which it is associated is allocated. 

scope 

The portion of an ALGOL program in which an identifier can 
successfully be used to denote its corresponding values and 
characteristics. 

secondary coroutine 

A procedure that Is initiated as a coroutine by a program. 

segment dictionary 

See "Dl stack." 

segmented array 

See "paged array." 

separately compiled procedure 

A procedure that is compiled on its own, rather than as part of a 
program, so that it can be bound into a host program by the Binder 
program. 

SIB 

See "Structure Information Block." 
stack 

A contiguous area in memory assigned to a task during its execution. 

Structure Information Block (SIB) 

On Mark 3.4 and earlier releases, a "pseudo-stack" that contains 
addressing environments for each structure of a database. SIBs do 
not exist on Mark 3.5 and later releases. 
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subroutine 

A procedure to which program control is transferred when it is 
invoked and that transfers control baefc to the statement following 
the invocation statement when it is exited. 



task 

A Single, complete unit of work performed by the system, such as 
compiling or executing a program or copying a file from one disk to 
another. Tasks are Initiated by a job, by another task, or directly 
by a user. 



thunk 

A compiler-generated typed procedure that calculates and returns the 
value of an expression passed to a call-by-name formal parameter of 
a procedure. The value of the expression is calculated and returned 
each time the formal parameter is used. A thunk is also referred to 
as "accidental entry.*' 



touched array 

An array that has been referenced by a statement. 



unpaged array 

An array that is not automatically divided ("paged" or "segmented") 
at run time into segments of 256 words each. Arrays smaller than 
1024 words are always unpaged. 



unsegmented array 

See "unpaged array." 



up- level event 

The situation that arises when either of the following is true: 

1. The block containing an event is exited before the block 
containing the interrupt attached to the event is exited. 

2. The block containing the finished event for a direct I/O 
statement is exited before the block containing the direct 
array is exited. 
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up-level pointer assignment 

Any construct that could result in a pointer pointing to an array- 
declared at a higher lexical level than that at which the pointer is 
declared. Such a construct is disallowed by the compiler, because 
the array can be deallocated, leaving the pointer pointing to an 
invalid portion of memory. 



WFL 

See "Work Flow Language." 



word 

A unit of computer memory. On Burroughs A Series and 
B 5000/B 6Q00/B 7000 Series systems, a word consists of 48 bits used 
for storage plus a tag field used to indicate how the word is 
interpreted. 



word array 

An array whose elements are single- or double-precision operands. 



Work. Flow Language (WFL) 

The Burroughs language used to write jobs that control the flow of 
programs and tasks on the operating system. 



zone field 



The leftmost (high order) four bits of an ASCII or EBCDIC character 
or the leftmost two bits of a BCL character. 
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<abs function>, 532 

occept statement >, 221 

Accidental entry (thunk), 171 

<action labels or finished event >, 362 

semantics, 371 
<actual parameter), 347 
<actual parameter part>, 346 
<actual text part>, 62 
ACTUALNAME, 173 
Addition, 478 
ALPHA, 208 
<alpha item>. 763 
<alpha item identifier), 704 
<alpha item name> , 697 
<alpha string literal), 34 
<alphanumeric relation), 704 
ALPHA6, 208 
ALPHA7, 208 
ALPHAS, 208 
AND, 496 

<append version), 647 

carccos function), 532 

<arcsin function), 532 

<arctan function), 533 

<arctan2 function), 533 

<arithmetic assignment), 225 

<arithmetic attribute), 226 

<arithmetic attribute specification), 86 

<arithmetic case expression), 476 

<arithmetic concatenation expression), 484 

<arithmetic direct array attribute), 226 

<arithmetic expression), 475 

precision of, 481 
orithmetic file attribute). 226 
<arithmetic function designator), 515 
<arithmetic intrinsic name). 515 

alphabetical listing of. 529 
< arithmetic operand). 476 
<arithmetic operator), 475 
Arithmetic operators, 478 

DIV. 479 

MOD, 479 

MUX, 479 ^ 

precedence of, 480 

TIMES, 478 

+, *, /. 478 

** , 479 
Arithmetic primaries, 477 

strings used as, 478 
<arithmetic primary), 476 
<arithmetic relation), 493 
<arithmetiG table membership), 495 
<arithmetxc task, attribute), 227 
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< arithmetic type transfer variable>, 226 
<arithinetic update assignment > , 227 
<arithmetic variable>, 225 
Arithmetic-valued attributes 
assigning values 

arithmetic assignment target <arithmetic attribute>, 22b 

FILE declaration, 85 

multiple attribute assignment statement, 332 

interrogating 

arithmetic operand <arithmetic attribute>, 476 

VALUE function, 585 
<arithmetic-valued direct array attribute name>, 227 
<arithmetic-valued file attribute name>, 86 
<arithmetic-valued task, attribute name>, 227 
Array 

allocation, 44 

array class, 45 

array reference, 52 

array row, 49 

array row equivalence, 47 

array row read, 370 

array row write, 467 

bits per element, 45 

bound pair list, 46 

character array, 45 

default type, 45 

descriptor, 46 

dimensions , 47 

direct array, 68 

element width, 45 

equivalent, 47 

in sort procedures, 443 

long (unpaged), 44 

lower and upper bounds , 46 

original, 46 

own , 44 

paged (segmented), 44 
referenced (touched), 50 
referred, 46 

resizing referenced unpaged ( unsegmented ) arrays, 420 

row selector, 49 

string array, 187 

subarray selector, 49 

unpaged (unsegmented), 44 

value array, 214 

word array, 45 

ZIP WITH array. 470 
<array class>, 41 
<array declaration> , 41 
<array designator >, 43 
Array handling 

ARRAY declaration, 41 

array reference assignment, 231 
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Array handling (cpnt. ) 

ARRAY REFERENCE declaration, 52 

ARRAYSEARCH function, 534 

CHECKSUM function, 537 

DEALLOCATE statement, 287 

DIRECT ARRAY declaration, 68 . ' 

FILL statement, 300 

LISTLOOKUP function, 5e>l 

MASKSEARCH function, 562 

NOSTACKARRAYSoption, 631 : ... 

RESIZE statement, 415 

SIZE function, 577 

STRING ARRAY declaration, 187 

VALUE ARRAY declaration, 214 
<array identifier>, 42 
<array name>, 43 
Array parameters, 171, 174 
<array reference assignment>, 231 
<array reference declaration> , 52 . 
<array reference identifier>, 52 
<array reference variable>, 231 
<array row>, 43 

in LIST declaration, 134 
<array row equivalence> , 43 
Array row read, 370 
<array row resize parameters>, 415 
Array row write, 467 
<array specif ication> , 168 
< array type>, 168 
Arrays of strings, 187 
<arraysearch function>, 534 
<ASCII Character >, 36 
<ASCII code>, 35 
<ASCII option>, 603 
<ASCII string>, 35 
<ASCII string constant>, 524 
<assign statement >, 709 
<assignment statement >, 223 
Assignment statement, 223 

arithmetic assignment, 225 

array reference assignment, 231 

Boolean assignment, 234 

complex assignment, 237 

mnemonic attribute assignment, 239 

multiple attribute assignment statement, 332 

pointer assignment, 241 

string assignment, 243 

swap statement, 447 

task, assignment, 246 
<atanh function>, 534 
<attach statement>, 248 
Attribute handling 

assigning arithmetic-valued attributes 
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Attribute handling (cont.) 

arithmetic assignment target orithmetic attribute>, 226 
FILE declaration, 85 

multiple attribute assignment statement, 332 
assigning Boolean-valued attributes 

Boolean assignment target <Boolean attribute>, 234 
FILE declaration, 85 

multiple attribute assignment statement, 332 
assigning pointer-valued attributes 
FILE declaration, 85 

multiple attribute assignment statement, 332 
replace family-change statement, 409 
replace pointer-valued attribute statement, 411 
assigning string-valued attributes 
LIBRARY declaratior , 129 

string assignment target < string-valued library attribute>, 243 
assigning task-valued attributes 

task assignment, 246 
assigning the LIBACCESS library attribute 

LIBRARY declaration, 129 

mnemonic attribute assignment, 239 
assigning translate-table-valued attributes 

FILE declaration, 85 

multiple attribute assignment statement, 332 
interrogating arithmetic-valued attributes 

arithmetic operand <arithmetic attribute>, 476 
interrogating Boo lean -valued attributes 

Boolean operand <Boolean attribute>, 492 
interrogating event-valued attributes 

<event designator >, 78 
interrogating pointer-valued attributes 

REPLACE statement source part <pointer-valued attribute>, 380, 
407 

interrogating string-valued attributes 

string primary <string-valued library attribute). 523 

interrogating task-valued attributes 
<task designator >, 200 

VALUE function, 585 
<attribute parameter list>, 226 
ottrlbute parameter specif ication> , 226 
<attribute specifications), 85 
<autobind option), 603 
<available function), 535 



Bad go to, 313 

<basic symbol), 16 

Batch source input, 791 

<BCL code) , 35 

<BCL option), 605 

<BCL String), 35 

<BDMS Close Statement), 715 

<BDMS free statement), 732 
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<BDMS identifier >, 691 
< EDMS lock. stateinent>, 741 
<BDMS open statement >, 747 
<BDMS set statement>, 757 
BDMSALGOL, 679 

<alpha itein>, 763 

<alpha item identif ier > , 704 

<alpha item name>, 697 

calphanumeric relation>, 704 

<assign statement >, 709 

<BDMS close statement), 715 

<BDMS free statement), 732 

<BDMS identifier), 691 

<BDMS lock statement), 741 

<BDMS open statement), 747 

<BDMS set statement), 757 

<begintransaction statement), 712 

binding databases, 774 

<Boolean item name), 697 

compiler control options, 772 
DATADICTINFO option, 7 72 
LISTPB option, 772 
NODMDEFINES option, 773 
TRACEDB option, 773 

<count item name), 697 

<create statement), 718 

<data set), 703 

<data set name), 681 

<data set reference), 681 

<database attribute assignment statement), 689 
< database declaration), 680 
<database identifier), 715 
<database name), 681 
<database reference), 680 
<database title), 681 
<datadict inf o option), 772 
<delete statement), 722 
<dmterminate statement), 724 
<dmtest function), 763 
. <endtransaction parameters), 726 
<endtransaction statement), 726 
<exception handling), 768 
<exception value), 770 
<exception variable) , 768 
<field item identifier), 704 
<field item name), 697 
<find statement), 729 
<generate statemi^nt), 734 
<get statement), 737 
< group item name), 697 
<input assignment), 696 
< input mapping), 696 
< insert statement), 739 
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BDMSALGOL (cont. ) 

< internal name>, 681 

<item>, 757 

<Key condition>. 704 

<linlc item>, 705 

<listdb option>, 772 

<logical database naine>, 681 

<inidtransaction parameters:-, 744 

<m.idtransactton statement), 744 

<modify statement > 

as synonym for <BDMS lock statement >, 741 
<nodmdefines opt ion >, 773 
<numeric item>, 763 
<numeric item identifier), 704 
<numeric item name>, 697 
<nuroeric relation), 704 
<output assignment), 700 
<output mapping). 70C 
<population item name), 697 
<put statement), 750 
<qualif ication > , 693 
<real item). 763 
<real item identifier). 704 
<real item name>, 697 
<record type item name), 697 
<recreate statement), 752 
<remove statement), 754 
<restart data set), 712 
<saveinput procedure identifier), 744 
<saveoutput procedure identifier), 72c. 
<selection expression), 703 

separate compilation (sepcomp) of databases, 776 

<set), 703 

<set name), 682 

<set part) , 681 

<set reference), 681 

<set selection expression), 703 

< St ore statement), 761 

^string-valued database attribute), 689 

< structurenumber function), 766 

<subscripted BDMS identifier). 692 

< subset ) , 704 

<tracedb option). 773 

<transaction record variable), 712 
<beginsegment option), 605 
<begintransaction statement), 712 
<binary code), 31 
Binary read. 369 
<binary string). 31 
Binary write, 466 
<bind option), 607 
<binder command), 599 
<binder option), 607 
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Binding 

AUTOBIND option, 603 

BIND option, 607 

BINDER option, 607 

DUMPINFO option, 611 

EXTERNAL option, 612 

HOST option, 614 

INITIALIZE option, 617 

INTRINSICS option. 619 

LEVEL Option, 619 

LIBRARY option. 620 

LOADINFO option, 623 

of databases, 774 

PURGE option, 634 

STOP option, 642 

USE option, 646 
Bit manipulation, 484 

concatenation expression, 484 

partial word expression, 489 
<bit manipulation expression>, 484 
<block>. 9 

<Boolean assignment > , 234 

<Boolean attribute>, 234 

<Boolean attribute specif ication> , 86 

<Boolean case expression>, 493 

<Boolean concatenation expression>, 484 

Boolean data type 

Boolean array declaration, 41 

Boolean array reference declaration, 52 

Boolean assignment. 234 

BOOLEAN declaration, 55 

Boolean expression, 491 

Boolean functions 

ACCEPT statement. 222 

AVAILABLE function, 535 

BOOLEAN function, 535 

CHANGEFILE Statement, 270 

CHECKPOINT statement, 274 

FIX statement, 303 

FREE statement, 311 

HAPPENED function, 555 

READ statement, 363 

READLOCK function. 570 

REMOVEFILE statement. 377 

SEEK statement. 433 

SPACE statement, 445 

WAIT statement, 454 

WRITE statement, 462 
Boolean operand internal structure. 823 
Boolean procedure declaration, 165 
Boolean value array declaration. 214 
direct Boolean array declaration. 68 
functions with Boolean parameters 
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Boolean data type (cont.) 

READLOCK function, 570 
REAL function, 570 

intrinsic functions returning values of type BOOLEAN, 531 

width of Boolean array elements, 45 
<Boolean declaration > . 55 
<Boolean direct array attribute>, 235 
<Boolean expression>, 491 
<Boolean file attribute>, 235 
<Boolean function>, 535 
<Boolean function designator >, 515 
<Boolean identifier>, 55 
<Boolean intrinsic name>, 516 

alphabetical listing of, 531 
<Boolean item name>, 697 
<Boolean operand>, 492 
Boolean operand internal structure, 823 
<Boolean operator >, 491 
Boolean operators, 496 

precedence of, 498 
<Boolean option>, 597 
Boolean primaries, 499 
<Boolean primary>, 492 
<Boolean task, attribute), 235 
<Boolean type transfer variable), 234 
<Boolean update assignment), 235 
<Boolean value), 492 
<Boolean variable), 234 
Boolean-valued attributes 

assigning values 

Boolean assignment target <Boolean attribute), 234 
FILE declaration, 85 

multiple attribute assignment statement, 332 
interrogating 

Boolean operand <Boolean attribute), 492 
VALUE function, 585 
< Boolean-valued direct array attribute name), 235 
<Boolean-valued file attribute name), 86 
< Boolean-valued task, attribute name), 235 
< bound pair), 42 
<bound pair list), 42 

Bound pair lists in array declarations, 46 

<bounds part), 74 

<brack.et ) , 17 

<break.host option), 608 

Breakpoint 

BREAKHOST option, 60S 

breakpoint intrinsic, 251 

BREAKPOINT option, 609 

BREAKPOINT statement, 250 

control commands, 253 

display commands, 251 

reformat commands, 254 
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<brealcpoint option>, 609 
<break.point statement), 250 
By-calling procedure, 172 
<B7700 option), 609 



<cabs function), 535 

<caH statement). 259 

Call-by-name parameters, 170 

Gall-by-reference parameters, 171 

Call-by-value parameters, 170 

Calling procedures with parameters, 348 

< cancel statement), 261 

CARD file, 589 

<case body) , 263 

<case expression), 504 

<case head), 263 

<case statement), 263 

CAT, 526 

<cause statement), 266 
<causeandreset statement), 268 
<ccos function), 535 
<cexp function), 536 
<changefile statement), 270 
Character array, 45 
< character array identifier), 42 
< character array name), 520 
< character array part), 520 
<character array row), 520 
< character set), 203 
<character size), 565 
Character string manipulation 

ASCII collating sequence, 811 

ASCII option, 603 

BCL collating sequence, 811 

BCL option , 605 

character array, 45 

default character type, 817 

DELTA function, 543 

DOUBLE function, 548 

EBCDIC collating sequence, 811 

INTEGER function, 558 

internal representation of characters, 808 

intrinsic functions returning values of type POINTER, 531 

OFFSET function, 564 

PICTURE declaration, 147 

pointer assignment, 241 

POINTER declaration, 160 

pointer expression,, 519 

POINTER function, 565 

pointer relation, 501 

READLOCK function, 570 

REAL function, 571 
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Character string manipulation (cont.) 

REMAIN INGCHARS function, 571 

REPLACE Statement, 379 

SCAN Statement, 427 

SIZE function, 577 

string literal, 30 

string relation, 500 

TRANSLATETABLE declaration, 202 

TRUTHSET declaration, 207 
< character type>, 42 
<check option>, 610 
Checkpoint, 273 

checkpoint/restart messages, 277 

effect on the PROCESSID function, 568 

with the sort intrinsic, 441 
<check.point statement >, 273 
<check.sum function>, 537 
<cln f unction> , 537 
<close option> , 280 
<close statement>, 280 
<closed text>, 62 
CODE file, 591 
Code optimization 

BEGINSEGMENT option, 605 

B7700 Option, 609 

ENDSEGMENT option, 611 

OPTIMIZE option, 633 

TARGET option, 644 
<code option>, 610 
Code-compa.tible families, 645 
<column width>, 361 
<comment characters>, 27 
< comment remark.>, 27 
< commentary > , 372 
<compare procedure>, 437 
Compile-time facility 

<compile-time arithmetic expression>, 777 

<compile-time begin statement >, 781 

<complle-time Boolean expression>, 783 

compile-time compiler control options, 787 
CTLIST option, 787 
CTMON option, 787 
CTTRACE option, 788 
LISTSKIP option. 788 

<compile-t ime define identifier>, 781 

<compile-time define statement >, 781 

<compile-time for statement >, 782 

<compile-time identifier>, 779 

<compile-time if statement>, 783 

<compile-time invoke statement>, 784 

<compile-time let statement >, 784 

<compile-time statement>, 780 

<compile-time text>, 781 
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Compile- time facility (cont.) 

<compile^time thru statement>, 785 

<complle-time variable), 778 

<compile-time variable declaration) , 777 

<corapile-time while statement), 785 

<ctlist option), 787 

<ctmon option), 787 

<cttrace option), 788 

<def inition) , 786 

<listsk,ip option), 788 

<number identifier), 777 

<starting value), 777 

<vector length), 777 
Compiler control options, 603 

ASCII option, 603 

AUTOBIND option. 603 

BCL Option, 605 

BEGINSEGMENT Option, 605 

BIND option, 607 

BINDER Option, 607 

BREAKHOST option, 608 

BREAKPOINT option, 609 

B7700 option, 609 

CHECK option, 610 

CODE option, 610 

DUMPINFO option, 611 

ENDSEGMENT option. 611 

ERRLIST option, 612 

EXTERNAL option, 612 

FORMAT option, 613 

GO TO option, 613 

HOST Option, 614 

INCLNEW option, 614 

INCLSEQ option, 615 

INCLUDE option, 615 

INITIALIZE option, 617 

INSTALLATION option, 618 

INTRINSICS option, 619 

LEVEL option, 619 

LIBRARY Option, 620 

LIMIT option, 620 

LINEINFO option, 621 

LIST option, 621 

LISTDELETED option, 622 

LISTINCL option, 622 

LISTOMITTED option, 623 

LISTP option, 623 

LOADINFO option, 623 . 

MAKEHOST Option, 625 

MCP option, 628 

MERGE option, 628 

NEW option, 629 

NEWSEQERR Option, 630 
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Compiler control options (cont.) 

NOBCL option, 630 

NOBINDINFO Option, 631 

NOSTACKARRAYS option, 631 

NOXREFLIST option, 632 

OLDRESIZE option, 632 

OMIT option, 633 

OPTIMIZE option, 633 

PAGE Option, 633 

PURGE option, 634 

SEGDESCABOVE option, 634 

SEGS option, 635 

SEPCOMP option, 635 

SEQ option. 637 

SEQERR option, 638 

sequence base option, 638 

sequence increment option, 639 

SHARING option, 639 

SINGLE option, 640 

STACK option, 641 

STATISTICS option, 641 

STOP option, 642 

TADS Option, 643 

TARGET option, 644 

TIME option, 645 

USE option, 646 

user option, 646 

VERSION option, 647 

VOID option, 648 

VOIDT option, 649 

WARNSUPR option, 649 

WRITEAFTER option, 649 

XDECS option, 650 

XREF option, 650 

XREFFILES option, 652 

XREFS option, 653 

$ option, 653 
<compiler control record>, 596 
Compiler input files, 589 
Compiler output files, 591 
<compiletime function>, 538 
<complex assignment>, 237 
<complex case expression>, 507 
Complex data type 

complex array declaration, 41 

complex array reference declaration, 52 

complex assignment, 237 

COMPLEX declaration, 58 

complex expression, 506 

complex functions 

CCOS function, 535 
CEXP function, 536 
CLN function, 537 
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Complex data type (cont.) 

COMPLEX function, 538 
CONJUGATE function, 539 
CSIN function, 539 
CSQRT function, 540 
complex operand internal structure, 826 
complex procedure declaration, 165 
complex relation, 500 
complex value array declaration, 214 
functions with complex parameters 
CABS function, 535 
IMAG function, 557 
REAL function, 571 
intrinsic functions returning values of type COMPLEX, 531 
width of complex array elements, 45 
(complex declaration> , 58 
c complex equality operator >, 494 
<complex expres£ion>. 506 
<complex function>, 538 
<complex function designator>, 516 
<complex identifier>, 58 
<complex intrinsic name>, 516 

alphabetical listing of, 531 
<complex operand>, 507 

Complex operand internal structure, 826 
<complex operator>, 506 
<complex primary>, 506 
<complex relation>. 494 
<complex update assignment > , 237 
<complex variable), 237 
<compound statement), 9 
<conGatenation> , 485 
<concatenation expression), 484 
<condition), 381 

<conditional arithmetic expression). 476 
<conditional Boolean expression), 495 
<conditional complex expression), 507 
<conditional designat ional expression), 512 
<conditional expression), 510 
<conditional pointer expression), 520 
<conjugate function), 539 
<constant>, 214 

<constant arithmetic expression), 476 

<constant expression), 214 
<constant list), 214 
<constant string expression), 525 
Contents of printer listing 

CODE option, 610 

FORMAT option, 613 

LIST option, 621 

LISTDELETED option, 622 

LISTINCL option, 622 

LISTOMITTED option, 623 
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Contents of printer listing (cont.) 

LISTP option, b25 

PAGE Option, 63 3 

SEGS option. 635 

SINGLE option, 640 

STACK Option, 641 

TIME Option, 645 

WARNSUPR option, 64<5 

$ option, 653 
<continue statement>. 285 
<control character>, 149 
<control part>, 73 
<copy number>. 298 
<core-to-core blocking>, 360 
<core-to-core blocking part>, 360 
<core-to-core file part>, 360 
< core- to-core part>. 360 
<core-to-core record size>, 360 
<cos function>, 539 
<cosh function>, 539 
<cotan function>, 539 
<count>, 252 
< count item name>, 697 
<count part>, 381 
<create statement>, 718 
Critical block, 351 
Cross reference, 650 

NOXREFLIST option, 632 

XDECS option, 650 

XREF option, 650 

XREFFILE file, 593 

XREFFILES Option, 652 

XREFS option, 653 
<csin function>, 539 
<csqrt function), 540 
<cycle increment), 647 



<dabs function), 540 
<dand function), 540 
<darccos function), 540 
<darcsin function), 541 
<darctan function), 541 
<darctan2 function), 541 
<data>, 792 
Data descriptors 

internal structure, 827 
<data error label), 362 
<data exponent part), 102 
Data number, 102 
<data set), 703 
<data set name), 681 
<data set reference), 681 
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<database attribute assignment statement >, 689 

<database declaration."* „ b8C 

<database identifier>, 715 

<database name>, bSi 

<database references. bSO 

<database title>, 6.81 

Databases 

binding of , 774 

separate compilation of, 776 
<datadictinf o option>, 772 
<dcos function>, 541 
<dcosh function>, 542 
<deallocate statement), 287 
<decimal fraction), 23 
<decimal function). 542 
<decimal number > . 23 
<decimal places), 92 
<declaration> . 3<^ 
<:declaration list), 9 
Default character type, 817 
<define declaration), 60 
<define identifier), 60 
<:define invocation), 62 
<def ini tion) , 60 

extension in the compile-time facility, 786 
<delete statement), 722 
<delimiter), 16 
<delinklibrary function). 543 
-cdelta function). 543 
<deqv function), 544 
<derf function), 544 
cderfc function), 544 
<designational case expression), 512 
<designational expression), 512 
cdestination ) , 379 
<destination characters), 203 
<detach statement), 288 
<device), 273 
<dexp function), 544 
<dgainma function), 545 
Diagnostic tools 

BREAKHOST option, 608 

BREAKPOINT option, 609 

BREAKPOINT Statement, 250 

DUMP declaration, 73 

MONITOR declaration, 136 

PROGRAMDUMP statement, 355 

STATISTICS option, 641 

TADS Option, 643 
<digit>, 16 

<digit convert part), 380 
Dimensionality of arrays, 47 
<dimp function), 545 
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<dinteger function>, 545 

<direct array declaration> , 68 

<direct array identifier>, 68 

<direct array naine>, 69 

<direct array reference identifier>, 52 

<direct array row>, 68 

<direct array row equivalence), 68 

<direct file identifier), 85 

Direct I/O, 31b 

<direct switch file identifier), 189 

<directory element), 270 

<disable statement), 289 

<disabling on statement), 336 

<disk, size), 437 

<display statement), 291 

<disposition> , 273 

DIV, 479 

Division, 478 

<dlgamma function), 545 

<dln function), 546 

<dlog function), 546 

<dmax function), 546 

<dmin function), 546 

<dmterminate statement), 724 

<dmtest function), 763 

<dnabs function), 547 

<dnot function), 547 

<do statement), 293 

<dor function), 547 

Double data type 

arithmetic assignment, 225 

arithmetic expression, 475 

arithmetic relation, 500 

direct double array declaration, 68 

double array declaration, 41 

double array reference declaration. 52 

DOUBLE declaration, 71 

double functions 

DABS function, 540 

DAND function, 540 

DARCCOS function, 540 

DARCSIN function, 541 

DARCTAN function, 541 

DARCTAN2 function, 541 

DCOS function, 541 

DCOSH function, 542 

DECIMAL function, 542 

DEOV function, 544 

DERF function, 544 

DERFC function, 544 

DEXP function, 544 

DGAMMA function, 545 

DIMP function, 545 
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Double data type (cont. ) 

DINTEGER function, 545 

DLGAMMA function, 545 

DLN function, 546 

DLOG function, 546 

DMAX function, 546 

DMIN function, 546 

DNABS function, 547 

DNOT function, 547 

DOR function, 547 

DOUBLE function, 548 

DSCALELEFT function, 550 

DSCALERIGHT function, 550 

DSCALERIGHTT function, 551 

DSiN function, 551 

DSINH function, 551 

PSQRT function, 551 

DTAN function, 552 

DTANH function , 552 

<pot function >, 568 

POTC function, 568 

POTH function, 568 

POTL function, 568 
double procedure declaration, 165 
double value array declaration, 214 
double-precision operand internal structure, 824 
functions for manipulating double-precision expressions 

BOOLEAN function, 535 

FIRSTWORD function, 554 

INTEGER function, 557 

INTEGERT function, 558 

REAL function, 571 

SECONDWORD function, 574 

SINGLE function, 577 

STRING function, 578 
intrinsic functions returning values of type DOUBLE, 530 
width of double array elements, 45 
<double declaration> , 71 
<double function>, 548 
<double identifier >, 71 
<double variable> , 447 

Double-precision operand internal structure, 824 

<drop function>, 549 

DS (Discontinue) ODT command, 661 

<dscaleleft function>, 550 

<dscaleright function>, 550 

<dscalerightt function), 551 

<dsin function), 551 

■cdsinh function), 551 

<dsqrt function), 551 

<dtan function), 552 

cdtanh function), 552 

<dump declaration), 73 
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<dump list>, 73 

<dump paraineters> , 73 

<dumpinfo option>, 611 

<dynamic procedure specif ication> , 169 



<EBCDIC character>, 35 
<EBCDIC code>, 35 
<EBCDIC string>, 35 
<EBCDIC String constant >, 524 
<editing modifier>, 92 
<editing phrase>, 91 
Editing phrase 

A editing phrase letter, 98 

using pointers and string variables, 99 

C editing phrase letter, 98 

using pointers and string variables, 99 

D editing phrase letter, 102 

decimal places, 96 

E editing phrase letter, 104 

editing modifiers, 120 

F editing phrase letter, 104 

f ield width, 96 

G editing phrase letter, 105 

H editing phrase letter, 106 

I editing phrase letter, 108 

J editing phrase letter, 110 

K editing phrase letter, 106 

L editing phrase letter. 111 

multiple editing phrases, 93 

O editing phrase letter, 112 

P editing modifier, 120 

R editing phrase letter, 113 

repetition of, 95 

S editing phrase letter, 114 

simple string literal, 94 

T editing phrase letter, 116 

U editing phrase letter, 116 

V editing phrase letter, 117 

variable editing phrases, 97 

X editing phrase letter, 118 

Z editing phrase letter, 119 

$ editing modifier, 120 
<editing specif ications > , 90 
EMPTY, 526 
EMPTY6, 526 
EMPTY7, 526 
EMPTY 8, 526 

<enable statement>. 295 
<enabling on statement>, 334 
<end remark.>, 27 
<end-of-record> , 373 
<ending index>, 537 
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<endsegment option >, 611 

<endtransaction parameters > , 726 

<endtransaction statement >, 726 

<entier function>, 552 

Entry point. See Library entry point 

<entry specif ier>, 792 

<environment>, 625 

<eof label > , 362 

< equal ity operator >, 495 

< equation part >, 55 

EQV, 496 

<erf function), 553 

<erfc function), 553 

<errlist option), 612 

Error handling for libraries, 660 

< error limit), 620 

Error messages 

for formatted input, 834 

for formatted output, 832 

for free-field input, 831 
ERRORFILE file, 592 
<escape remark.), 27 
<escape text), 27 
< event array declaration), 78 
<event array designator), 79 
<event array identifier), 78 
<event declaration), 78 
<event designator), 78 
Event handling 

ATTACH statement, 248 

AVAILABLE function, 535 

CAUSE Statement, 266 

CAUSEANDRESET statement, 268 

DETACH statement, 288 

EVENT ARRAY declaration, 78 

EVENT declaration, 78 

FIX statement, 303 

FREE statement, 311 

HAPPENED function, 555 

LIBERATE Statement, 324 

PROCURE statement, 353 

RESET Statement. 414 

SET statement, 435 

up- level event 

in ATTACH statement, 248 
in direct I/O, 317 

WAIT statement, 452 

WAITANDRESET statement, 456 
<event identifier), 78 
•cevent list) , 452 
<event statement), 297 

Ev^nt-valued attributes , See also Event handling 
interrogating 
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Event-valued attributes (cont.) 

<event designator>, 78 
<event-valued task attribute>, 79 
<event-valued task, attribute naine>, 79 
<exception handling>, 768 
<exception value>, 770 
<exception variable>, 768 
< excha n ge s t a t emen t > , 298 
<exp function>, 553 
<explicit delimit er>, 373 
<exponent part>, 24 
Exponentiation, 479 
<export declaration> , 81 
<expression> , 473 
<external option>, 612 



<family designator >, 409 

<fault action>, 336 

<fault information part>, 335 

<fault list>, 334 

< fault name>, 335 

<fault number>, 335 

<fault stack history>, 335 

<field>, 372 

<field delimiter>, 372 

<field item identifier >, 704 

<field item name>, 697 

Field notation, 807 

<field width>, 91 

<file declaration> , 85 

<file designator>, 189 

File handling. See I/O 

<file identifier>, 85 

File parameters, 178 

<file part>, 359 

semantics, 364 
<file specif ication>, 611 
<file-valued task attribute name>, 461 
<fill statement>, 300 
<find statement >, 729 
<first function), 554 
<firstone function), 554 
<firstword function), 554 
<fix statement), 303 
<for list element), 305 
<for statement), 305 
<formal parameter), 166 
<formal parameter list), 166 
< formal parameter part), 166 
<formal parameter specifier). 168 
Formal parameters, 173 
<formal symbol), 60 
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< formal symbol part>, 60 
<format and list part>, 361 

semantics for READ statement, 368 

semantics for WRITE statement, 465 
<format declaration> , 89 
<format designator >, 192 
<format identifier>, 89 
<format option>, 613 
< format part), 89 
Format -error messages 

formatted input, 834 

formatted output, 832 

free-field input, 831 
Formatted input format-error messages. 834 
Formatted output format-error messages, 832 
Formatted read, 368 
Formatted write, 465 
<forward interrupt declaration>, 121 
<forward procedure declaration>, 121 
< forward reference declaration>, 121 
<forward switch label declaration>, 121 
<free statement>, 311 
Free-field data format, 371 
Free-field data record, 372 
Free-field input format-error messages, 831 
< free-field part>, 361 
< freeze statement >, 312 
Fully-specified formal procedure, 173 
< function expression >, 514 
FUNCTIONNAME library attribute, 665 
Functions , 528 

ABS function , 532 

ACCEPT statement, 222 

ARCCOS function, 532 

ARCSIN function, 532 

ARCTAN function, 533 

ARCTAN2 function, 533 

ARRAYSEARCH function, 534 

ATANH function,. 534 

AVAILABLE function, 535 

BOOLEAN function, 535 

CABS function, 535 

CCOS function, 535 

CEXP function, 536 

CHANGEFILE statement, 270 

CHECKPOINT statement, 274 

CHECKSUM function, 537 

CLN function, 537 

CLOSE Statement, 281 

COMPILETIME function, 538 

COMPLEX function, 538 

CONJUGATE function, 539 

COS function, 539 
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Functions (cont.) 

COSH function, 539 
COTAN function, 539 
CSIN function. 539 
CSQRT function, 540 
DABS function, 540 
DAND function, 540 
DARCCOS function, 540 
DARCSIN function, 541 
DARCTAN function, 541 
DARCTAN2 function, 541 
DCOS function. 541 
DCOSH function. 542 
DECIMAL function, 542 
DELINKLIBRARY function, 543 
DELTA function. 543 
DEQV function, 544 
DERF function, 544 
DERFC function. 544 
DEXP function, 544 
DGAMMA function, 545 
DIMP function. 545 
DINTEGER function, 545 
DLGAMMA function, 545 
DLN function, 546 
DLOG function, 546 
DMAX function, 546 
DMIN function, 546 
DNABS function, 547 
DNOT function, 547 
DOR function, 547 
DOUBLE function, 548 
DROP function, 549 
DSCALELEFT function. 550 
DSCALERIGHT function, 550 
DSCALERIGHTT function. 551 
DSIN function, 551 
DSINH function. 551 
DSQRT function, 551 
DTAN function, 552 
DTANH function. 552 
ENTIER function, 552 
ERF function, 553 
ERFC function. 553 
EXP function, 553 
FIRST function. 554 
FIRSTONE function, 554 
FIRSTWORD function, 554 
FIX statement, 303 
FREE statement, 311 
GAMMA function, 555 
HAPPENED function, 555 
HEAD function, 556 
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Functions (cont.) 
IMAQ function, 557 
INTEGER function, 557 
INTEGERT function, 558 

intrinsic functions returning values of type BOOLEAN, 531 
intrinsic functions returning values of type COMPLEX, 531 
intrinsic functions returning values of type DOUBLE, 530 
intrinsic functions returning values of type INTEGER, 530 
intrinsic functions returning values of type POINTER, 531 
intrinsic functions returning values of type REAL, 530 
intrinsic functions returning values of type STRING, 531 
LENGTH function, 559 
LINENUMBER function, 559 
LINKLIBRARY function, 559 
LISTLOOKUP function, 561 
LN function, 562 
LNGAMMA function, 562 
LOG function, 562 
HASKSEARCH function, 562 
MAX function, 563 
MESSAGESEARCHER statement. 331 
MIN function, 563 
NABS function, 564 
NORMALIZE function, 564 
OFFSET function, 564 
ONES function , 565 
OPEN statement, 340 
POINTER function, 565 
<pot function>, 568 
POTC function, 568 
. POTH function, 568 
POTL function, 568 
PROCESSID function, 568 
RANDOM function, 569 
READ statement, 363 
READLOCK function, 569 
REAL function, 570 
REMAIN INGCHARS function, 571 • 
REMOVEFILE statement. 377 
REPEAT function, 572 
SCALELEFT function, 572 
SCALERIGHT function, Sl3 
SCALERIGHTF function, 573 
SCALERIGHTT function, 574 
SECONDWORD function, 574 
SEEK statement, 432 
SETACTUALNAME function, 575 
SIGN function, 576 
SIN function, 577 
SINGLE function, 577 
SINK function, 577 
SIZE function, 577 
SPACE statement. 445 
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Functions ( cont . ) 
SQRT function, 578 
STRING function, 578 
STRING4 function, 578 
STRING7 function, 578 
STRING8 function, 578 
TAIL function, 580 
TAKE function, 581 
TAN function, 582 
TANH function, 582 
TIME function, 582 
TRANSLATE function, 584 
VALUE function, 585 
WAIT statement, 453 
WAITANDRESET statement, 456 
WRITE statement, 462 



<gamraa function>, 555 
<generate statement), 734 
<get statement), 737 
Global identifiers, 13 
< global part>, 10 
<go to option), 613 
<go to statement), 313 
< group item name), 697 



<happened function), 555 

<head function), 556 

<hex string), 372 

<hexadecimal character), 34 

<hexadecimal code), 33 

<hexadecimal string), 33 

<hexadecimal string constant), 525 

Hexadecimal strings in free-field data records, 374 

HOST file, 590 

<host option), 614 



I/O 

ACCEPT Statement, 221 
DIRECT ARRAY declaration, 68 
direct I/O, 316 
DISPLAY Statement, 291 

file handling. See also Attribute handling 
CHANGEFILE statement, 270 
CLOSE statement, 280 
EXCHANGE statement, 298 
FILE declaration, 85 
LOCK Statement, 325 
MERGE statement, 327 

multiple attribute assignment statement. 332 
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I/O (cont. ) 

OPEN statement, 340 
REMOVEFILE statement, 377 
REWIND statement, 423 
SEEK statement, 433 
SPACE statement, 445 
SWITCH FILE declaration, 189; 
formatting 

FORMAT declaration, 89 
free-field data format, 371 
LIST declaration, 132 
run- time format-error messages, 831 
SWITCH FORMAT declaration, 192 
SWITCH LIST declaration, 197 
I/O statement, 315 
normal I/O, 316 
READ statement, 359 
serial I/O operation, 433 
WRITE statement, 461 
WRITEAFTER option, 649 
<I/0 statement >, 315 
<identif ier> , 21 
<if clause), 319 
<if statement), 319 
<imag function), 557 
<immediate option), 597 
IMP, 496 

<in-out part), 89 

<rnclnew option), 614 

< inclseq option) , 615 

INCLUDE files, 590 

<include option), 615 

< index) , 252 

< index and count), 252 

< index or range), 252 

INFO file, 590, 593 

< initial part), 305 

<initial value), 300 

<initialize option), 617 

Initialized pointer, 161 

<input assignment), 696 

<input f ile> , 608 

<input mapping), 696 

<input option), 436 

< input procedure), 436 

<insert statement), 739 

<installation number), 618 

<installation number list), 618 

<installation option), 618 

< integer ), 24 

Integer data type 

arithmetic assignment ^ 225 

arithmetic expression, 475 
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Integer data type (cont.) 
arithmetic relation, 500 
direct integer array declaration, 68 
functions for manipulating integer expressions 

BOOLEAN function, 535 

DINTEGER function, 545 

DOUBLE function, 548 

NORMALIZE function. 564 

STRING function, 578 
integer array declaration, 41 
integer array reference declaration, 52 
INTEGER declaration, 123 
integer functions 

ARRAYSEARCH function, 534 

CLOSE statement, 281 

DELINKLIBRARY function, 543 

DELTA function, 543 

ENTIER function, 552 

FIRSTONE function, 554 ' 

INTEGER function, 557 

INTEGERT function, 558 

LENGTH function, 559 

LINENUMBER function, 559 

LINKLIBRARY function, 559 

LISTLOOKUP function, 561 

MASKSEARCH function, 562 

MESSAGESEARCHER statement, 331 

OFFSET function, 564 

ONES function, 565 

OPEN statement, 340 

PROCESSID function, 568 

REMAININGCHARS function, 571 

SCALELEFT function, 572 

SCALERIGHT function, 573 

SCALERIGHTT function, 574 

SETACTUALNAME function, 575 

SIGN function, 576 

SIZE function, 577 

VALUE function, 585 

WAIT statement, 453 

WAITANDRESET statement, 456 
integer operand internal structure, 821 
integer procedure declaration, 165 
integer value array declaration, 214 

intrinsic functions returning values of type INTEGER, 530 

width of integer array elements, 45 
<integer declaration> , 123 
<integer function), 557 
<integer identifier), 123 
Integer operand internal structure, 821 
<integer variable), 447 
<integert function), 558 
< internal file name), 611 
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<internal naine>, 681 

< interrupt declaration> , 126 

Interrupt handling 

ATTACH statement, 248 .. 

DETACH statement, 288 

DISABLE statement , 289 

ENABLE statement, 295 

INTERRUPT declaration, 126 

interrupt statement, 322 

ON statement, 334 
<interrupt identifier>, 126 
< interrupt statement >, 322 
INTNAME library attribute, 665 
Intrinsic functions, See Functions 
<intrinsic translate table>, 383 
<intrinsics option>, 619 
< introduction> , 148 
< introduction code> , 148 
<invocation statement >, 323 
Invoking defines, 61 
<iptime restriction > , 791 
IS, 497 
ISNT, 497 
<item>, 757 

<iteration clause>, 133 
< iteration part>, 305 



< jOb> , 792 

Job and task control. See also Attribute handling 

CALL statement, 259 

CHECKPOINT statement, 273 

CONTINUE statement, 285 

PROCEDURE declaration, 165 

PROCESS statement, 350 

PROCESSID function, 568 

RUN statement, 425 

TASK ARRAY declaration, 199 

task assignment, 246 

TASK declaration,, 199 

ZIP statement, 470 
< job specif ier>, 792 



< job title> , 792 
<key condition>, 704 



< label counter>, 74 

< label counter modulus >, 7 3 

<label deolaration> , 128 

<label designator), 512 

<label identifier), 128 
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<labeled statement), 220 

< language component >, 15 

<language name>, 142 

<language specif ication> , 329 

<left bit>, 489 

<left bit from>, 485 

<lef t bit to> , 485 

<length function), 559 

Length of string literals, 387 

<letter>, 16 

<letter string), 17 

< level option), 619 

< level 2 procedure), 10 

<lex level restriction part), 160 

LIBAGCESS library attribute, 666 

assigning values 

LIBRARY declaration, 129 
mnemonic attribute assignment, 239 
< liberate statement), 324 
LIBPARAMETER library attribute, 666 
<library attribute specifications), 129 
<library declaration), 129 
Library entry point 

allowed parameters, 82 

allowed types, 82 

at initiation, 657 

declaration of in calling program, 172 

declaration of in library program, 81 

matching types, 668 

passing parameters, 669 
<library entry point identifier), 575 
<^library entry point specification), 169 
Library handling 

ACTUALNAME. 17 3 

assigning values to LIBACCESS library attribute, 129, 239 

assigning values to string-valued library attributes, 129, 243 

attributes, 665 

calling programs, 656 

CANCEL statement, 261, 660 

creation of libraries, 662 

delinking, 660 

DELINKLIBRARY function, 543, 660 
description of libraries, 655 
direct linkage, 659 
duration, 658 
dynamic linkage, 659 
entry points 

allowed parameters, 82 

allowed types, 82 

at initiation, 657 

declaration of in calling program, 172 
declaration of in library program, 81 
matching types, 668 
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Library handling (cont.) 

passing parameters, 669 
error handling, 660 
examples 

calling programs, 674, 678 

direct linkage, 675 

dynamic linkage, 671, 676 

indirect linkage, 676 
EXPORT declaration, 81 
FREEZE statement, 312 

functional description of libraries, 656 
indirect linkage, 659' 
initiation, 657 

interrogating string-valued library attributes, 523 

LIBRARY declaration, 129 

library directories, 656 

library programs,, 656 

library templates, 656 

linkage provisions, 659 

LINKLIBRARY function, 559, 664 

parameter passing rules, 669 

permanent specification, 658 

PROCEDURE declaration, 165 

referencing libraries, 664 

restricting use, 662 

SETACTUALNAME function, 575, 665 

SHARING option, 639, 662 

temporary specification, 658 
< library identifier)*, 129 
<library option>, 620 
Library SHARING option 

DONTCARE, 639, 663 

PRIVATE, 639, 662 

SHAREDBYALL, 639, 662 

SHAREDBYRUNUNIT, 639, 662 
<limit option>, 620 
LINE file, 591 
<lineinfo option>, 621 
<linenumber function>, 559 
<linewidth>, 650 
<link item> , 705 

<linklibrary function>, 559, 664 

<list>, 361 

<list declaration> , 132 
<list designator>, 197 
<list element>, 133 
<list identifier>, 132 
<list bption>, 621 
<listdb option>, 772 
<listdeleted option>, 622 
<listincl option>, 622 
<listlookup function>, 561 
<listomitted option>, 623 
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<listp option>, 623 
<ln function). 562 
<lngamma function), 562 
<loadinfo option), 623 
Local identifiers, 13 
<lock. option), 325 
<locK. statement), 325 
<log function), 562 
< logical database name), 681 
<logical operator), 18 
Logical operators, 497 

AND, 496 

EQV, 496 

IMP, 496 

NOT, 496 

OR, 496 

precedence of , 499 

results of, 497 
Long (unpaged) arrays, 44 
< lower bound), 42 
< lower bound list), .168 
<lower bounds), 52 
< lower limit), 74 



<mak.ehost option), 625 

<mask.search function), 562 

<max function), 563 

<MCP option), 628 

<merobership expression), 207 

<membership primary), 208 

<memory size), 437 

<merge option), 628 

<merge statement), 327 

<merging option), 327 

<merging option list), 327 

<messagesearcher statement), 329 

<midtransaction parameters), 744 

<midtransaction statement), 744 

<min function), 563 

MLS, See MultiLingual System (MLS) 

<mnemonic attribute), 239 

<mnemonic attribute assignment), 239 

<mnemonic attribute value), 239 

<mnemonic file attribute value), 86 

<mnemonic library attribute), 239 

<mnemonic library attribute specification), 130 

<mnemonic library attribute value), 130 

<mnemonic-valued library attribute name), 130 

MOD, 479 

<modify statement) 

as synonym for <BDMS lock statement), 741 
<monitor declaration), 136 
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<monitor element>, 136 

<mult idimensional array designator>, 415 
MultiLingual System (MLS) 

MESSAGESEARCHER Statement, 329 

OUTPUTMESSAGE ARRAY declaration. 141 
<multiple attribute assignment statement 332 
Multiplication. 478 
MUX, 479 



<nab£ function>, 564 
< name and title>, 611 
<new character>, 148 
<new option > , 629 
<new size>, 415 
<new value> , 255 
<newseqerr option>, 630 
NEWTAPE file, 591 
<noBCL option>, 630 
<nobindinfc option), 631 
<nodmdeflnes option>, 773 
Normal I/O. 316 
<normalize function), 564 
Normalized form 

double precision, 826 

single precision, 821 
<nostack-arrays option), 631 
NOT, 496 

<noxreflist option). 632 
Null statement, 219 
< number), 23 
<number list), 263 
<number of bits), 485 
<number of columns), 361 
< number of tapes), 437 
<numbered statement group), 263 
<numbered statement list), 263 
Numbers 

compiler conversion, 26 

exponents, 26 

in free-field data records, 374 

ranges in ALGOL, 25 
<numeric convert part), 380 
<numeric item), 763 
<numeric item identifier), 704 
<numeric item name), 697 
<numeric relation), 704 
Numeric sign, 819 
<numeric string literal), 30 



<octal character), 33 
<pctal code), 32 
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<octal string>, 32 

<offset function>, 564 

<oldresize option), 632 

<omit opt ion >, 635 

<on statement >, 334 

<one-dimensional array narae>, 43 

<one-dimensional direct array name>. 68 

<ones f unction >, 565 

<open option), 340 

<open stateinent>, 340 

<operator>, 17 

<optimi2e option), 633 

Optimizing code 

BEGINSEGMENT option, 605 

B7700 option. 609 

ENDSEGMENT option, 611 

OPTIMIZE option, 633 

TARGET option, 644 
<option expression), 598 
<option phrase), 596 
<option primary), 598 
OR, 496 

<outer level), 619 

<output assignment), 700 

<output mapping), 700 

<output message), 142 

<output message array), 141 

<output message array declaration), 141 

<output message array identifier), 141 

<output message case expression), 143 

<output message case part), 143 

<output message number), 142 

<output message parameter), 143 

<output message parameter number), 143 

<output message parameter value), 143 

<output message part), 141 

<output message segment), 142 

<output option), 436 

<output procedure), 436 

Own 

arrays, 44 

pointers, 161 

simple variables, 123 



<pack. size), 437 

<page option), 633 

Paged (segmented) arrays, 44 

<parameter delimiter), 17 

<parameter element), 329 

Parameters 

array parameters, 171, 174 
array specification, 171 
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Parameters (cont.) 
call-by-name, 170 
call-by-reference, 171 
call-by-value, 170 

complex call-by-name parameters, 170 

event parameters, 179 

file parameters, 178 

format parameters, 179 

label parameters, 179 

list parameters, 179 

parameters that can be call-by-value, 173 

passing parameters to CANDE-init iated procedures, 171 

passing parameters to procedures, 348 

passing parameters to WFL-init iated procedures, 171 

picture parameters, 179 

pointer parameters, 179 

procedure parameters, 175 

restrictions on call-by-name pointer parameters, 164 

simple variable parameters, 176 

string parameters, 178 

task, parameters, 179 
< parity error label >, 362 
<partial word expression), 489 
<partial word part>, 489 
<patch number), 647 
<picture>, 147 
<picture character), 149 
<picture declaration), 147 
<picture identifier), 147 
<picture skip), 148 
<picture symbol), 147 
Pictures 

affects of hardware flip-flops on picture symbols, 150 

character fields affected by picture symbols, 151 

characters used by picture symbols, 151 

control characters, 153 

in REPLACE statement, 402 

introduction codes, 152 

picture characters, 154 

picture skip characters, 153 

single picture characters, 153 

string literals in pictures, 152 
<pointer assignment), 241 
<pointer attribute specification). 86 
<pointer case expression), 519 
<pointer declaration), 160 
< pointer expression), 519 
<pointer function), 565 
<pointer function designator), 517 
Pointer handling. See Character string manipulation 
<pointer identifier), 160 
<pointer intrinsic name), 517 

alphabetical listing of, 531 
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<pointer part>, 494 
<pointer primary >, 519 
<pointer relation>, 494 
<pointer statement), 342 
<pointer table membership) , 495 
<pointer update assignment), 241 
<pointer variable), 241 
<pointer-valued attribute), 411 
Pointer-valued attributes 
assigning values 

FILE declaration, 85 

multiple attribute assignment statement, 332 

replace family-change statement, 409 
replace pointer-valued attribute statement, 411 
interrogating 

REPLACE statement source part <pointer-valued attribute), 380, 
407 

VALUE function, 585 
<pointer-valued file attribute), 411 
<pointer-valued file attribute name), 86 
<pointer-valued task, attribute), 411 
<pointer-valued task, attribute name), 412 
Pointers 

functions with pointer parameters 

DELTA function, 543 

DOUBLE function, 548 

INTEGER function, 558 

OFFSET function, 564 

READLOCK function, 570 

REAL function, 571 

REMAIN I NGCHARS function, 571 

SIZE function, 577 

STRING function, 578 
initialized, 161 
internal structure, 827 

intrinsic functions returning values of type POINTER, 531 
lexical level restrictions, 161 
own, 161 

pointer assignment, 241 

POINTER declaration, 160 

pointer expression, 519 

pointer functions 

POINTER function, 565 
READLOCK function, 570 

pointer relation, 501 

string relation, 500 

up-level pointer assignment, 161 
<population item name), 697 
<pot function), 568 
POTC, 568 
POTH, 568 
POTL, 568 



891 

Index 



Precedence 

of arithmetic operators, 480 

of Boolean operators, 49<5 
Precision of arithmetic expressions, 481 
Primary coroutine, 259 
<procedure body>, 169 
<procedure declaration> , 165 
<procedure heading>, 165 
<procedure identifier). 165 
<procedure invocation statement>, 346 
Procedure parameters, 175 
<procedure specification), 167 
<procedure type) , 165 
Procedures 

allowed parameters, 173 

array parameters, 171, 174 

as functions, 169 

by-calling, 172 

CALL statement. 259 

call-by-name parameters, 170 

call-by-reference parameters, 171 

call-by-value parameters, 170 

CONTINUE statement, 285 

external, 172 

file parameters, 178 

formal, 173 

formal parameters, 170 

forward procedure declaration, 121 

initiated through CANDE, 171 

initiated through Work. Flow Language (WFL), 171 

library entry points, 172 

passing parameters to, 348 

PROCEDURE declaration, 165 

procedure invocation statement, 346 

procedure parameters, 175 

PROCESS statement, 350 

RUN statement. 425 

selection procedure, 172 

simple variable parameters, 176 

string parameters, 178 
<process statement), 350 
<processid function), 568 
<processtime restriction), 791 
<procure statement), 353 
<program unit > , 9 
<programdump option), 355 
<programdump statement), 355 
<purge option), 634 
<put statement), 750 



<qualif ication ) , 693 
<quaternary code), 32 
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<quaternary string>, 32 
<quoted string>, 372 

Quoted strings in free-field data records, 374 



Railroad diagrams, explanation of, 837 
<random f unction >, 569 
Range of numbers, 25 
<read statement>, 359 
READ statement 

array row read, 370 
binary read, 369 
formatted read, 368 
free-field data format, 371 
free-field data record 

hexadecimal strings, 374 

numbers, 374 

quoted strings, 374 

unquoted strings, 373 
<readlock function>, 569 
Ready queue, 26b 
Real data type 

arithmetic assignment, 225 

arithmetic expression, 475 

arithmetic relation, 500 

direct real array declaration, 68 

functions for manipulating real expressions 

BOOLEAN function, 535 

DINTEGER function, 545 

DOUBLE function, 548 

ENTIER function, 552 

INTEGER function, 557 

INTEGERT function, 558 

NORMALIZE function, 564 

STRING function, 578 
intrinsic functions returning values of type REAL, 530 
real array declaration, 41 
real array reference declaration, 52 
REAL declaration, 182 
real functions 

ABS function, 532 

ARCCOS function, 532 

ARCSIN function. 532 

ARCTAN function, 533 

ARCTAN2 function, 533 

ATANH function, 534 

CABS function, 535 

CHECKSUM function, 537 

COMPILETIME function, 538 

COS function, 539 

COSH function, 539 

COTAN function, 539 

ERF function, 553 
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Real data type (cont.) 

ERFC function, 553 

EXP function, 553 

FIRST function, 554 

FIRSTWORD function, 554 

GAMMA function, 555 

IMAG function, 557 

LN function, 562 

LNGAMMA function, 562 

LOG function, 562 

MAX function, 563 

MIN function, 563 

NABS function, 564 

NORMALIZE function, 564 

RANDOM function, 569 

READLOCK function, 569 

REAL function, 570 

SCALERIGHTF function, 573 

SECONDWORD function, 574 

SIN function , 577 

SINGLE function, 577 

SINH function, 577 

SQRT function, 578 

TAN function, 582 

TANK function, 582 

TIME function, 582 
real operand internal structure, 820 
real procedure declaration, 165 
real value array declaration, 214 
width of real array elements, 45 
<real declaration> , 182 
<real function>, 570 
<real identifier>, 182 
<real itein>, 763 
<real item identifier), 704 
<real item name>, 697 
Real operand internal structure, 820 
<real variable), 447 
<record length), 437 
< record number), 433 

<record number or carriage control), 359 

<record type item name), 697 

<recreate statement), 752 

<relational operator), 493 

< remainingchars function), 571 

< remark,), 27 

<remove statement), 754 

<removefile statement), 377 

<repeat function), 572 

< repeat part), 90 

<repeat part value), 149 

<replace family-change statement), 409 

<replace pointer-valued attribute statement). 
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<replace statement>, 379 
REPLACE statement 

short and long string literals, 387 

string literals interpreted as arithmetic expressions, 392 
<replace version>, 647 
<reserved word>, 799 
Reserved words, 800 

type 1 , 803 

type 2, 803 

type 3, 805 
<reset statement>, 414 

Resettable standard Boolean options, 601 

<residual count >, 381 

<resize statement>, 415 

<restart data set>, 712 

<restart specif ications> , 437 

<result>, 360 

<result length>, 329 

<result pointer >, 329 

<rewind statement>, 423 

<row number>, 298 

<row selector>, 43 

< row/copy numbers >, 298 

<run statement>, 425 



<saveinput procedure identifier>, 744 
<saveoutput procedure identifier>, 72b 
<scale f actor >, 92 
<scaleleft function>, 572 
<scaleright function>, 573 
<scalerightf function), 573 
<scalerightt function), 574 
<scan part>, 381 
<scan statement), 427 
Scope, 12 

global identifiers. 13 

local identifiers, 13 
Secondary coroutine, 259 
<secondword function), 574 
<seek. statement), 433 
< segdescabove option), 634 
<segs option), 635 
<selectlon expression), 703 
<selection procedure identifier), 169 

Separate compilation. See Sepcomp facility ^ 
<separate procedure), 10 
Sepcomp facility 

MAKEHOST option, 625 

SEPCOMP option, 635 

sepcoraping databases, 776 
< sepcomp option), 635 
<seq option) , 637 
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<seqerr option>, 638 

<sequence base option>, 638 

<sequence increment option>, 639 

< sequence number >, 613 

<set>, 703 

<set name>, 682 

<set part > » 681 

<set reference>, 681 

<set selection expression>, 703 

<set statement>, 4 35 

<setactualname function>, 575 

<sharing option), 639 

Short and long string literals, 387 

<sign> ,23 

<sign function), 576 

Signs of numeric fields, 819 

< simple arithmetic expression), 475 

< simple Boolean expression), 491 

<simple complex expression), 506 

<simple pointer expression), 519 

<simple source), 409 

<simple string literal), 30 

<simple variable), 225 

Simple variable parameters, 176 

<sin function), 577 

<single function), 577 

<single option), 640 

<single picture character), 149 

<single space), 19 

<sinh function), 577 

<size function), 577 

<size specifications), 437 

<skip), 519 

<sklp count), 253 

<sort statement), 436 

<source), 381 

< source characters), 202 

< source part), 380 

<source part list), 379 

<space), 19 

< space statement). 445 

<special array resize parameters), 415 

< special destination character), 203 

< special new character), 148 

< specif ication) , 166 

< specified lower bound), 168 

<specifier). 167 

<sqrt function). 578 

<stack. option), 641 

<start specification), 615 

<starting index). 537 

<statement>, 21^ 

<statement list), 9 
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<statistics option>, 641 

<stop option) , 642 

<stop specification), 615 

<store statement), 761 

<string array declaration), 187 

<string array designator), 187 

<string array identifier), 187 

<string assignment), 243 

<string character set), 556 

String code, 36 

String concatenation, 526 

<string concatenation operator), 523 

<string constant), 523 

String data type 

functions with string parameters 
DECIMAL function, 542 
DROP function, 549 
FIRST function. 554 . 
HEAD function, 556 
LENGTH function, 559 
REPEAT function, 572 
TAIL function, 580 
TAKE function, 581 
TRANSLATE function, 584 
intrinsic functions returning values of type STRING, 531 
STRING ARRAY declaration, 187 
string assignment, 243 
string concatenation, 526 
STRING declaration, 185 
string expression, 523 
string expression relation, 501 
string functions 

DROP function, 549 
HEAD function, 556 
REPEAT function, 572 
STRING function, 578 
STRING4 function, 578 
STRING7 function, 578 
STRING8 function, 578 
TAIL function, 580 
TAKE function, 581 
TRANSLATE function, 584 
string parameters in procedures, 178 
STRING PROCEDURE declaration, 165 
<string declaration), 185 
<string designator), 243 
<string expression), 523 
String expression 

in REPLACE statement, 408 
<string expression relation). 495 
<string function^, 578 
<string function designator), 518 
<string Identifier), 185 
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<string intrinsic name>, 518 

alphabetical listing of, 531 
<string library attribute specif ication> , 129 
<string literal>, 30 
String literal 

as an arithmetic primary, 478 

ASCII string, 38 

BCL string, 37 

binary string, 31 

character size, 36 

default character type, 817 

dollar signs in strings, 38 

EBCDIC string, 35 

hexadecimal string, 33 

in editing specifications, 93, 94 

in pictures , 152 

in REPLACE statement source parts, 387 

interpreted as arithmetic expression in REPLACE statement, 392 

maximum length of, 37 

octal string, 32 

pool array, 37 

quaternary string, 32 

quotation marks in strings, 38 

string code, 3b 

string length, 387 
String manipulation. See Character string manipulation 
String parameters, 178 
<string primary>, 523 
<string procedure identifier>, 165 
<string relation>, 494 
<string relational operator>, 493 
<string type>, 185 
<string variable>, 525 
String-valued attributes 

assigning values 

LIBRARY declaration, 129 

string assignment target < string-valued library attribute>, 243 

interrogating 

string primary <string-valued library attribute>, 523 
<string-valued database attribute>, 689 
<string-valued library attribute>, 525 
<string-valued library attribute name>, 129 
STRING4, 578 
STRING7. 578 
STRING8, 578 

<structurenumber function>, 76.6 
<subarray selector >, 44 
<subfile index>, 280 
<subfile specif ication> , 360 
<subscript>. 43 

<subscrlpted EDMS identifier>, 692 

<subscripted string variable>, 525 
<subscripted variable>, 225 
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< subset >, 704 
Subtraction, 478 
<swap statement). 447 
<switch file delaration>, 189 
<switch file ldentifier>, 189 
<switch file list>, 189 
<switch format declaration) , 192 
<switch format identifier), 192 
<switch format list>, 192 
< switch format segment), 192 
<switch label declaration), 195 
<switch label identifier), 195 
<switch label list), 195 
<switch list declaration). 197 
<switch list identifier), 197 
< symbol construct), 15 



<TADS option) , 643 

<tail function), 580 

<take function), 581 

<tan function). 582 

<tanh function), 582 

TAPE file, 589 

< target option), 644 

<task. array declaration), 199 

<task. array designator), 200 

<task array identifier), 199 

<task. assignment), 246 

<task. declaration), 199 

<task designator), 200 

Task, handling. See Job and task control 

<task identifier), 199 

Task-valued attributes. See also Job and task control 

assigning values 

task assignment, 246 
interrogating 

<task designator), 200 
<task-valued task attribute name), 200 
<text), 61 

THAW (Thaw Frozen Library) ODT command, 661 

<thru statement), 450 

Thunk, 171 

<time>, 452 

<time function), 582 

<time option), 645 

<time restrictions), 791 

TIMES, 478 

<title>, 611 

TITLE library attribute, 666 
Touched array, 50 
<tracedb option), 773 
<transaction record variable), 712 



Index 



<transfer part>, 381 
< translate function), 584 
< translate part>, 382 
<translate table>, 382 
Translate table 

in REPLACE statement, 401 
< translate table declaration> , 202 
<translate table element), 202 
< translate table identifier), 202 
<translate-table attribute specif ication>, 86 
Translate-table-valued attributes 

assigning values 

FILE declaration, 85 

multiple attribute assignment statement, 332 

VALUE function, 585 
< translate-table-valued file attribute name), 8b 
<translation specifier), 202 
<translator 's help text>, 142 
< truth set declaration), 207 
<truth set identifier), 207 
<truth set table), 382 
Truth set table 

in Boolean expressions. 502 

in REPLACE statement, 404, 406 

in SCAN statement, 430, 431 
<type>, 41 

<type declaration), 212 
Type declarations 

BOOLEAN, 55 

COMPLEX, 58 

DOUBLE, 71 

INTEGER, 123 

POINTER, 160 

REAL, 182 

STRING, 185 
Type transfer functions 

BOOLEAN function, 535 

COMPLEX function, 538 

DECIMAL function, 542 

DINTEGER function, 545 

DOUBLE function. 548 

ENTIER function, 552 

FIRST func*:ion. 554 

FIRSTWORD function, 554 

IMAG function, 557 

INTEGER function, 557 

INTEGERT function, 558 

REAL function, 570 

SECONDWORD function, 574 

SINGLE function, 577 

STRING function, 578 
Types resulting from arithmetic operations, 482 
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Uninitialized pointer, 161 
<unit count), 380 
<unlabeled statement >, 220 
Unpaged (long) arrays, 44 
<unquoted string>, 372 

Unquoted strings in free-field data records. 373 
Unsegmented arrays, See Unpaged (long) arrays 
<unsigned integer>, 23 
<unsigned number>, 23 
<up or down> , 409 
Up-level event 

in ATTACH statement, 248 

in direct I/O, 317 
Up-level pointer assignment, Ibl 
<update pointer >, 379 
<update symbols >, 227 
< upper bound >, 42 
<upper limit>, 74 
<use option>, 64b 
<user option>, 646 



<value array declaration) , 214 

<value array identifier), 214 

<value function), 585 

<value list), 300 

<value option), 598 

<value part), 166 

<variable) , 225 

<version increment), 647 

<version option), 647 

<void option), 648 

<voidt option), 649 



<wait parameter list>, 452 
<wait statement), 452 
<waitandreset statement), 456 
<warnsupr option), 649 
<when statement), 458 
<while statement), 459 
Width of array elements, 45 
Word array, 45 
<word array identifier), 42 
<write file part), 461 

semantics, 463 
<write statement). 461 
WRITE statement 

array row write. 467 

binary write, 466 

formatted write, 465 
<writeafter option), 649 
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<xdecs optlon>, 650 
<xref option>, 650 
XREFFILE file, 593 
<xref files option>, 652 
<xrefs option>, 653 



ZIP 

with array, 470 
with file, 471 
<zip statement >, 470 



<$ option >, 653 



(exponentiation operator), 479 



I (OR), 496 

II (string concatenation operator), 526 



